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I. 



INTRODUCTION TO DATABASE CONCEPTS 



A. INTRODUCTION 

In recent years computer technology has evolved dramati- 
cally. As more and more organizations use computer, it is 
necessary to use systematic approaches for software solutions 
to their problems. 

One approach which is widely used in the computer world 
is database systems. 

Database systems today, play a central role in computer 
science for the facilities and data handling capabilities 
they provide. 




Figure 1. Changing Hardware /Software Cost Ratio 
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The fact that the hardware cost is decreasing rapidly 
and software cost continues to increase as shown by Figure 1, 
in a United States Air Force study [Ref. 1] , leads us to con- 
sider systems that achieve the best utilization of software 
development productivity. These considerations motivated 
system designers to build advanced database systems in order 
to decrease software cost and obtain maximum benefit. 

In our case the benefit will be the savings of manpower 
for other purposes. 

B. DATABASE SYSTEMS VS MANUAL SYSTEMS IN HELLENIC ARMED 

FORCES FORMATIONS 

Currently all of the information required by Formation 
Commanders are handled manually by the staff of the formation, 
resulting in time consuming operations and inaccuracies. 

Because of the continuous changes concerning personnel 
and the associated data, it is extremely difficult for the 
staff personnel to keep track of these changes. Many systems 
are very inefficient and the Commander of the Formation does 
not have accurate and timely information in order to make 
fast decisions. 

These problems could be solved by the implementation of 
a computerized personnel database system. 

A database system has several important advantages over 
manual systems, which are described below. 

First data can be shared. This reduces the time needed 
to develop new systems or to respond to various requests. In 
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effect, all the necessary information can be retrieved from 
existing data much faster and with a higher degree of accuracy. 

The second advantage of a database system is the elimina- 
tion or reduction of data duplication that can lead to a lack 
of data integrity in conflicting reports. 

The third advantage is that the personnel involved in 
manual personnel management could be reduced considerably, 
freeing manpower for other tasks. 

C. CONCLUSIONS 

In order to increase the effectiveness of Hellenic Armed 
Forces, it is essential that personnel management be performed 
very efficiently. However, to manually manage all Armed 
Forces personnel is a very tedious, complex and time consuming 
job. Increased personnel volume has also increased the task 
of management making the operations more and more complicated. 
Furthermore, personnel managers and decision makers will need 
reliable information faster than is currently available. It 
is almost impossible to get all the information required by 
the personnel managers in the time frame allowed with a manual 
system. 

On the other hand, an automated system could result in 
decreasing the number of personnel working in personnel man- 
agement offices, freeing some for manning in other understaffed 
positions . 
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Database systems have become important tools for retriev- 
ing timely and accurate information and is expected to provide 
its user with the required information within a specified 
time. Therefore, a standard database system should be devel- 
oped for efficient personnel management in the Hellenic Armed 
Forces Formations. 

D. GENERAL OVERVIEW OF A DATABASE SYSTEM 

We begin with the definition and some of basic terminol- 
ogy of databases and then discuss the architecture and types 
of data models. 

1 . Definition and Basic Terminology 

Figure 2 shows the relationship between the basic 
terms of a database, which are explained below. 







■file i 
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fields 



file 1 
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Figure 2. Relationship Between Basic Terms of a Database 
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Database 



a . 

A shared collection of interrelated data designed 
to meet the varied information needs of an organization. 

b. Database Management System (DBMS) 

A software system that performs all user's requests 
(update, retrieval) for data. 

c. File 

Is a collection of records concerning entities 
of the same type. 

d. Record 

Is a collection of data concerning one entity of 
a file. Each record has an identical format. 

e. Field 

A field is part of the record and is the smallest 
unit of named data. 

2 . Architecture for a Database System 

The architecture is divided into three general levels; 
internal, conceptual, and external [Ref. 2]. Figure 3 shows 
the standard viewpoints regarding the three levels. 

In Figure 3 a single database, which may be one of 
many databases using the same DBMS, is viewed at three differ- 
ent levels. Only the physical database exists. The concep- 
tual database is an abstract representation of the physical 
database and the views are either abstractions or portions 
of the conceptual database. 
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Figure 3. Levels of Abstraction in a Database System 

3 • Database Systems vs Traditional File Systems 

A database management system (DBMS) is considerably 
different from a traditional file system. 

A traditional file processing approach is shown in 
Figure 4. 
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Figure 4. Traditional File Processing Approach 
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We observe that each file program system processes only 



its own file. 

Figure 5 shows a database processing approach. 
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Figure 5. Database Processing Approach 

Here the DBMS integrates the data and makes it much 
easier to get useful information from more than one file. 

Data is not monitored and manipulated by the individ- 
ual application programs, but instead by the DBMS. 

Such a Database Management System is dBASE II, which 
will be used as the DBMS in our database system. 

The disadvantages of the traditional file approach are: 

(1) Uncontrolled redundancy. 

(2) Inconsistent data. 

(3) Inflexibility. 

(4) Limited data sharing. 

(5) Poor enforcement of standard. 

(6) Low programmer productivity. 
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( 7 ) 



(7) 


Excessive program maintenance. 

The advantages of the database processing approach are: 


(1) 


Minimal data redundancy. 


(2) 


Consistency of data. 


(3) 


Integration of data. 


(4) 


Sharing of data. 


(5) 


Enforcement of standard. 


(6) 


Ease of application programs. 


(7) 


Uniform security, privacy and integrity constraints. 


(8) 


Data accessibility and responsiveness. 


(9) 


Data independence. 


(10) 


Reduced program maintenance. 


4. 


Models of Database Management Systems 
A MODEL is a representation of real-world objects. 



events and their association. 

A DATA MODEL is an abstract representation of the data 
about entities, events, activities and their associations. 

The purpose of data models is to represent data in under- 
standable terms. The main data models in use today are the 
hierarchical data model (HDM) , network data model (NDM) and 
the relational data model (RDM) [Ref. 4]. Since the hier- 
archical model is a special case of the network model, actually 
there are two types. A complete discussion of these models 
is beyond the scope of this thesis but a brief overview is 
important as an introduction to dBASE II. 

In a hierarchical or network system, information is stored 
in a structure that looks very much like a tree (Fig. 6) . 
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Model 




Figure 6. Hierarchical Data Model 

An entity is composed of various assemblies and each 
assembly is composed of various subassemblies which in turn 
are composed of parts. Each part is a child of the parent 
assembly or subassembly that owns it. In a hierarchical 
model no child can have more than one parent. 

In a Network model a child can have more than one 
parent as shown in Figure 7 . 

It represents data as a set of record types and 
pairwise relationships between record types. 
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Figure 7. Network Data Model 

A relational data model differs from HDM and NDM 
in architecture. Information is stored in two-dimensional 
tables which are called files. 

These tables which are shown in Figure 8 have the 
following properties: 

(1) Each column contains values about the same attribute. 

(2) Each column has a distinct name. 

(3) Each row is distinct. 

(4) The sequence of the rows is immaterial. 
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Figure 8. Relational Data Model 

The above scheme deals with a parts inventory system. 
Information in the tables is accessed by the user based on 
any desired relationship. 

E. dBASE II CONCEPTS 

dBASE II is a relational database management system. 
However, since several files are generally used in a given 
application and the relationship between information in dif- 
ferent files is not stored in the system, dBASE II is not a 
true database management system in the strictest sense of 
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the word. dBASE II is more like a file management system 
with relational features added. dBASE II does contain its 
own programming language, permitting a user to develop extremely 
powerful and complex programs that meet demanding applications 
like general personnel, accounting and inventory control. 

1 . Features of dBASE II [Ref. 4] 

The most important features of dBASE II are: 

a. Independence of programs and data. Changes in file 
structures do not affect programs. 

b. Data can be easily updated. 

c. Sorting and indexing capabilities. 

d. Easy creation of reports by the report generator 
facility, or under program control. 

e. Very high-level built-in language which supports 
structured programming. 

2 . Limitations of dBASE II [Ref. 3] 

a. dBASE II allows only two files to be open at 

a time. This creates difficulties which can be overpassed 
by using special techniques but the system will slow down. 

b. dBASE II allows only 32 fields per record, which 
is enough for most applications, and the maximum number of 
characters permitted per record is 1000. 

c. Each field can be up to 254 characters long. 

d. dBASE II allows 16 programs to be run at any given 
time, reduced by the number of data files in use. For 
example, if we have 2 files in use, then 14 programs are 
allowed . 
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e. dBASE II applications are slower than com- 



piled programs. 
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II. ANALYSIS PHASE 



In this chapter the analysis phase for our personnel 
database system is discussed. This phase includes the defi- 
nition of the system objectives, the definition of the out- 
put information needed to meet these objectives, the 
definition of output forms, and definition of input infor- 
mation needed to obtain the desired output. 

A. SYSTEM OBJECTIVES 

As we stated in the previous chapter personnel management 
in Hellenic Armed Forces Formations is handled manually. 

This results in time consuming operations, inefficiency, and 
inaccuracy, which in turn results in a need for additional 
personnel, leaving other serious positions unmanned. In 
addition, decision making may be late which could result in 
disorder as far as personnel management is concerned. 

From the above discussion it is evident that a computer- 
ized system for handling personnel is needed. 

With such a system it will be possible to have any infor- 
mation concerning personnel updated at any time, with less 
effort and maximum accuracy. This will result in better 
decision making, faster operations and a savings of personnel 
for other purposes. 

More specifically we will consider the following objectives 
for the system [Ref. 7] . 
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(1) 


Application development must be easier, cheaper, 
faster and more flexible. 


(2) 


The data may have multiple uses. 


(3) 


Clarity. 


(4) 


Ease of use. 


(5) 


Flexible usage. 


(6) 


Ease of change. 


(7) 


Low cost. 


(8) 


Performance . 


(9) 


Privacy . 


(10) 


Availability. 


(11) 


Reliability. 



B. OUTPUT INFORMATION 

Our database system can be applied to all the personnel 
of a formation but for the purpose of this thesis we will 
include only the officers. 



To 


meet the above objectives the following output infor 


mation 


is needed; 


(1) 


List of officers in alphabetical order including 
serial number, rank, unit, and report date. 


(2) 


List of officers ordered by rank including service 
entry date, unit and duty. 


(3) 


List of units with their officers. 


(4) 


List of officers with nonmilitary studies. 


(5) 


List of officers who speak foreign languages. 


(6) 


List of officers including marital status. 


(7) 


List of officers with service time in current unit 
and total service time. 
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(8) List of officers with their addresses and phone 
numbers . 

The above lists will be issued regularly every month, 
but they will also be available at any time. 

C. INPUT INFORMATION 

In order to keep track of all the officers belonging to 
a Formation we must consider the following: 

Each officer has a serial number, rank, duty, and he 
belongs to a unit. We need to know his total service time, 
and the service time in current unit, as well as his marital 
status and where he lives, in order to respond to queries 
in the case of emergencies. 

Each unit has several officers and is identified by a 
code number which is distinct for Army and Navy units. 

For security purposes the personnel data contained 
within this thesis is purely artificial. 

In addition, we need to know, the education of each 
officer, including non-military studies and foreign language 
knowledge. For the purpose of this thesis, we assume that 
each officer speaks at most one foreign language besides 
his mother tongue. 

A detailed description and the input information included 
in the files, which will be created to support the above 
needs, are provided in the design phase. 
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III. DESIGN PHASE 



In this phase the functions of the system are defined, 
the files of the database are designed and a collection of 
programs is defined, to support each function. 

A. SYSTEM FUNCTIONS 

The system is separated into three functional entities 
as follows: 

1 . Update Operations 

This function allows the user to enter, delete and 
modify records in all the supporting files. These operations 
are performed daily. 

2 . Report Generators 

This function is for retrieving all the necessary 
information from our database on a monthly basis, or upon 
request . 

3 . Miscellaneous 

This function will include the following: 

a. When a user enters the system to do a specific 
job a record is automatically created containing the name 
of who makes the change, the date of the change, and the 
kind of the job. This file can be printed and deleted as 
necessary to monitor changes. 

b. When an officer is to be deleted from the MASTER 
file, before the deletion operation is performed, some data 
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concerning this officer will be transferred to a statistical 
file including the serial number, the name, the unit, the 
rank, the report date in the unit, and the date of deletion. 
This file will be available yearly or upon request. 

c. A screen display or printer output for fast 
retrieval of the data concerning an officer. 

The functional blocks of the system are shown in 
Figure 9 . 




Figure 9. Functional Blocks of the System 
B. FILE DESIGN 

To support the above functions the following files with 
the corresponding structures were created. The names of the 
files and fields are the ones that are used in our programs. 

1 . Master File 

It is the main file for our system containing the 
necessary information for each officer. 
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structure for file; MASTER 



FIELD 




NAME 


TYPE 


WIDTH 


01 




SERNO 


C 


4 


02 




NAME 


C 


16 


03 




RANK 


C 


2 


04 




UNIT 


C 


4 


05 




SERENTRY 


N 


6 


06 




REPTDATE 


N 


6 


07 




DUTY 


C 


2 


08 




EDUCAT 


C 


2 


09 




DEGREE 


C 


1 


10 




FORLANG 


C 


2 


11 




MARS TAT 


C 


1 


12 




CHILDREN 


C 


1 


13 




ADDRESS 


C 


20 


14 

Primary 

Units 


key: 

File 


PHONE 

SERNO 


C 


7 


Structure 


for file; 


UNITS 




FIELD 




NAME 


TYPE 


WIDTH 


01 




CODE 


C 


4 


02 




TITLE 


C 


12 


03 

Primary 


key: 


LOCATION 

CODE 


C 


10 
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3 



Ranks File 



Structure for file: RANKS 



FIELD 


NAME 


TYPE 


WIDTH 


01 


CODE 


C 


2 


02 


ARMYNAME 


C 


4 


03 


NAVYNAME 


C 


4 


Primary 


key : CODE 






Duties 


File 






Structure for file: 


DUTIES 




FIELD 


NAME 


TYPE 


WIDTH 


01 


CODE 


C 


2 


02 


NAME 


C 


20 


Primary 


key: CODE 






i. Forlangs File 






Structure for file: 


FORLANGS 




FIELD 


NAME 


TYPE 


WIDTH 


01 


CODE 


C 


2 


02 


NAME 


C 


12 


Primary 


key: CODE 







6 . Sciences File 

Structure for file: SCIENCES 
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FIELD 


NAME 


TYPE 


WIDTH 


01 


CODE 


C 


2 


02 


NAME 


C 


15 


Primary key: 


CODE 







7 . Monitor File 

It is a file that keeps track of who does what and 

when . 

Structure for file: MONITOR 



FIELD 


NAME 


TYPE 


WIDTH 


01 


DATE 


C 


8 


02 


NAME 


C 


16 


03 


JOB 


C 


12 


04 


FLE:REPT 


C 


12 


05 


NUMREC 


N 


3 


Statistic 
It is the 


File 

file for statistical 


information for 


deleted officer. 

Structure for file: 


STATISTIC 




FIELD 


NAME 


TYPE 


WIDTH 


01 


SERNO 


C 


4 


02 


NAME 


C 


16 


03 


RANK 


C 


2 


04 


UNIT 


C 


4 


05 


REPTDATE 


C 


8 


06 


DELDATE 


C 


8 
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9 . Tempor File 



Structure for file: TEMPOR 

FIELD NAME TYPE 

01 PASSWORD C 

02 SELECT C 

03 COUNTER C 

C. EXPLANATION OF FIELDS 



WIDTH 

5 

2 

3 



The explanation of the fields, where not obvious, is 
given below; 

1 . Master File 

a. SERNO: The serial number of the officer. 

b. SERENTRY : The date he entered the military 

academy • 

c. REPTDATE: The date he was positioned in the 

current unit. 

d. EDUCAT: His education besides the military 

studies . 

e. FORLANG: Foreign languages he speaks. 

f. MARSTAT; His marital status. 

2 . Monitor File 

a. FLE;REPT: The file the user works with, or the 

kind of report he prints. 

3 . Statistic File 

a. SERNO, REPTDATE: The same as above. 

b. DELDATE; The date of deletion from the unit. 
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D. DATA FLOW DIAGRAM 

The update operations are performed daily to update 
all the files of the system. These operations include 
insertion and deletion of records, as well as modifications 
in one or more fields. The output of the update operations 
are the same files updated from the transactions of the day 
These files are then used as input by the report generator 
function, to obtain the various reports. 



OAX>. base 




T- 



S £P0 a TS 




Figure 10. Data Flow Diagram for the Personnel 
Database System 
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During the update operations the STATISTIC file is 
created automatically. 

The MONITOR file is created from the update operations, 
report generators, and miscellaneous operations. 

The STATISTIC and MONITOR files are not seen by the 
user, so supporting the information hiding principle. 

The data flow diagram of the system is shown in Figure 10. 




Figure 11. Program Map for the Personnel Database 
System 



33 



E. SUPPORTING PROGRAMS 

The functional blocks we have already defined are 
selected by the user from the main menu of the system. The 
control is then transferred to the corresponding submenu 
(one for each function) . From the submenus the appropriate 
job is selected from an option list. The main menu, submenus, 
and programs form a hierarchical relationship. The diagram 
of this relationship is the program map. The program map 
for the personnel database system is shown in Figure 11. 

All the update operations, reports and printing, as well 
as deletion of MONITOR and STATISTIC files are selected from 
SUBMENUl, SUBMENU2, and SUBMENUS respectively. 

F. CODE SYSTEM FOR THE PERSONNEL DATABASE 



1. Codes 


for Ranks 




CODE 


ARMY 


NAVY 


01 


GENERAL (GEN) 


ADMIRAL (ADM) 


02 


LT GENERAL (LTG) 


VICE ADMIRAL (VADM) 


03 


MAJOR GENERAL (MG) 


REAR ADMIRAL (RADM) 


04 


BRIG GENERAL (BG) 


COMMODORE (COMD) 


05 


COLONEL (COL) 


CAPTAIN (CAPT) 


06 


LT COLONEL (LTC) 


COMMANDER (CDR) 


07 


MAJOR (MAJ) 


LT COMMANDER (LCDR) 


08 


CAPTAIN (CPT) 


LIEUTENANT (LT) 


09 


FIRST LIEUTENANT (ILT) 


FIRST LIEUTENANT (ILT) 


10 


SECOND LIEUTENANT (2LT) 


ENSIGN (ENS) 
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2. Codes for Units 



CODE 


TITLE 


1000 


1st Inf Div 


1101 


1st Inf Bn 


1102 


2nd Inf Bn 


1103 


3rd Inf Bn 


1104 


4th Inf Bn 


1105 


5th Inf Bn 


1206 


1st Arty Bn 


1207 


2nd Arty Bn 


1308 


Armour Bn 


1409 


Engineers Bn 


1510 


Signals Bn 


1611 


Sup/Trans Bn 


2000 


Navy Forces 


2101 


DD Squadron 


2202 


LST Squadron 


2103 


DD Miaoulis 


2104 


DD Kanaris 


2105 


DD Themis 


2206 


LST Argo 


2207 


LST Rhodes 



The meaning of the four digits representing the 
codes of the units is as follows: 
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1ST digit 



1: ARMY 

2 : NAVY 

2ND digit 

It distinguishes between the various kinds of units 
as follows: 

ARMY 

0 : HEADQUARTERS 

1 : INFANTRY 

2 : ARTILLERY 

3 : ARMOUR 

4 : ENGINEERS 

5: SIGNAL 

6 : SUPPLY-TRANSPORTATION 

NAVY 

0 : COMMAND 

1 : DD SQUADRON 

2 : LST SQUADRON 

The 3rd and 4th digit specify each unit. 

3. Codes for Duties 



CODE 


NAME 


01 


COMMANDER 


02 


DTY COMMANDER 


03 


CHIEF OF STAFF 


04 


1st OFFICE MANAGER 
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05 


2nd OFFICE MANAGER 


06 


3rd OFFICE MANAGER 


07 


4th OFFICE MANAGER 


08 


COMPANY COMMANDER 


09 


BATTERY COMMANDER 


10 


COMMANDING OFFICER 


11 


EXECUTIVE OFFICER 


12 


ASW OFFICER 


13 


NAVIGATION OFFICER 


14 


COMMUNICATION OFFICER 


15 


CIC OFFICER 


16 


ADJUTANT 



4. Codes for Sciences 



CODE 


NAME 


01 


MATHEMATICS 


02 


PHYSICS 


03 


CHEMISTRY 


04 


AERONAUTICS 


05 


EL/ENGINEERING 


06 


MECH/ENGINEERING 


07 


ECONOMICS 


08 


OPER/ RESEARCH 


09 


INFO/ SYSTEMS 


10 


COMP SYSTEMS 


11 


COMP SCIENCE 


12 


MANAGEMENT 
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13 



WEAPONS 



14 




OCEANOGRAPHY 


15 




SHIPBUILDING 


16 




METEOROLOGY 


17 




MEDICINE 


18 




LEGAL SCIENCES 


19 




ARCHITECTURE 


20 




CIV ENGINEERING 


Codes 


for 


Education Degree 


CODE 




NAME 


B 




BACHELOR 


M 




MASTER 


P 




Ph.D 


Codes 


for 


Foreign Languages 


CODE 




NAME 


01 




ENGLISH 


02 




GERMAN 


03 




ITALIAN 


04 




FRENCH 


05 




SPANISH 


06 




TURKISH 


07 




ARABIC 


08 




JAPANESE 


09 




CHINESE 


10 




PORTUGUESE 


11 




RUSSIAN 
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12 



BULGARIAN 



1 3 KOREAN 

14 DANISH 



15 SWEDISH 

16 DUTCH 



7. Codes for Marital Status 



CODE 

M 

U 

D 



NAME 

MARRIED 

UNMARRIED 

DIVORCED 
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IV. IMPLEMENTATION PHASE 



A. MAIN MENU AND SUBMENUS OF THE SYSTEM 

1 . Ma inmenu 

This program controls the whole operation of the 
system, and is called from another program called BEGIN, 
which is the only program the user calls by name. The pro- 
gram BEGIN also sets drive B to be the default drive. After 
initializing basic dBASE II functions the program MAINMENU 
calls another program called PASSWORD which is for aborting 
unauthorized users, and then it proceeds by displaying the 
front page of the system. Then it displays on the screen 
the main menu of the system, and pauses waiting for the user 
to make his choice which is stored in the variable 'choice'. 
Then a CASE statement permits the program to branch to the 
corresponding SUBMENU, or exit either to the operating sys- 
tem, or to dBASE II. If the user selects a wrong choice, 
then the program prints an error message, rings the bell, 
and redisplays the screen. This is performed by a WHILE 
loop using the boolean value T. 

2 . Password 

This program is called by the MAINMENU once at the 
beginning. Each user has a password to enter the system. 

If the password is the right one, the user is allowed to 
continue, otherwise the program gives one more change. If 
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the password is wrong again, the program automatically 
exits to dBASE II, displaying the appropriate message. 

During the execution of this program, we have to 
store somewhere the password to be used by the MONITR pro- 
gram, for monitoring the changes. This is done by using a 
file called TEMPOR with three fields, password, select, and 
counter. This file contains only one record, which is modi- 
fied properly during execution of the programs PASSWORD, 
and SUBMENUS. The MONITR program is called from the pro- 
grams INSERT, DELETE, MODIFY, REPORTS, and MISCELLANEOUS. 

3 . Submenus 

All three SUBMENUS operate with the same logic as 
the MAINMENU. The screen displays guide the user in what to 
do in each case. These programs also store in the second 
field of the file TEMPOR, the selection made by the user. 

The listings of the programs are given in the next 

pages . 
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PROGRAM MAINMENU >(<*>♦:*:***;<<*** 



* This program controls the whole operation of the system 

* Initialize basic functions 



SET TALK OFF 
SELECT PRIMARY 
SET FORMAT TO SCREEN 
SET PRINT OFF 
SET CONSOLE ON 



DO password 
DO frontpage 
DO setdate 
DO WHILE T 
ERASE 

@ 1, 52 SAY DATE{ ) 

@ 



@ 

@ 

@ 

@ 

@ 



2, 13 

3, 13 

4, 13 

5, 13 

6, 13 

7, 13 



SAY 

SAY 

SAY 

SAY 

SAY 

SAY 



^ ^ V^/ v^/ 1 1 

"** MAIN MENU **" 

What do you want to do? 



8, 13 SAY 
9, 13 SAY 



10, 13 

11, 13 

12, 13 

13, 13 

14, 13 

15, 13 

16, 13 

17, 13 



@ 18, 13 



SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 



">|c:<c 

";|c* 



0 = 



EXIT TO OPERATING SYSTEM 
(When you are finished) 

UPDATE OPERATIONS 

( Insert, delete, modify records) 
REPORT GENERATORS 
(Reports available) 

MISCELLANEOUS ■ 

(Files statistics) 

EXIT TO dBASE 

(For programmers only) 

Cj 1 ^ ^ i I 

^ ^ ^ i O X ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

^ c 7 A ^ ^ 1 1 

\^ ^ ^ £^ j[^ 

@ 23, 13 SAY ■■ Enter the corresponding number 

STORE " " TO choice 
WAIT TO choice 



1 = 



2 = 



3 = 



4 = 



**'• 

;*c*" 

**'• 



* Accept choice and branch to corresponding submenu 
DO CASE 

CASE choice = ''0*' 

QUIT 

CASE choice = "1" 

DO submenu 1 
CASE choice = "2" 

DO submenu2 
CASE choice = "3" 

DO submenu3 
CASE choice = "4" 

CANCEL 

OTHERWISE 
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Print an error message and give an other cheince 



* 



ERASE 

@ 10, 17 SAY choice+" IS AN ILLEGAL CHOICE - TRY AGAIN" 
SET TALK OFF 
? CHR(7) 

STORE 1 TO del 
DO WHILE del < 40 

STORE del+1 TO del 
ENDDO WHILE 
ENDCASE 
ENDDO WHILE T 



43 



PROGRAM PASSWORD ******>ts>tt 

* 

* This program is for aborting unauthorized users 

* 

ERASE 

@ 10,22 SAY ■•***** ENTER PASSWORD 

STORE ” " TO pasword 

STORE 0 TO count 

STORE T TO Okey 

DO WHILE Okey 

SET CONSOLE OFF 
ACCEPT TO pasword 
SELECT PRIMARY 
USE TEMPOR 
DELETE ALL 
PACK 

APPEND BLANK 

REPLACE password WITH pasword 
USE 

IF pasword = "QWERT" .OR. pasword = "ASDFG" 

SET CONSOLE ON 

@ 15,25 SAY "OK, You may continue" 

SET TALK OFF 
STORE 1 to del 
DO WHILE del < 25 

STORE del+1 to del 
ENDDO 
RETURN 
ELSE 

SET CONSOLE ON 
ERASE 
? CHR(7) 

@ 10,22 SAY "WRONG PASSWORD - TRY AGAIN" 
STORE count+1 TO count 
IF count = 2 
ERASE 
DO monitr 

@ 10,25 SAY UNAUTHORIZED USER 
SET DEFAULT TO A 
CANCEL 
ELSE 

STORE " " TO pasword 

END IF 
ENDIF 

ENDDO WHILE 
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PROGRAM FRONTPAGE *i*:****** 



* This program prints the main heading of the system 



ERASE 
@ 1 , 22 
@ 2, 22 

3, 22 

4, 22 

5, 22 

6 , 22 

7, 22 

8 , 22 

9, 22 

@ 10,22 
@ 12, 15 
@ 13, 15 
@ 14, 15 
@ 15, 15 
@ 16, 15 
@ 17, 15 
@ 18, 15 
@ 19, 15 
@ 20, 15 
SET TALK 
STORE 1 
DO WHILE 
STORE 



^ ^ ^ ^ 









SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
OFF 

TO delay 
delay < 80 
delay+1 TO delay 









A PERSONNEL DATABASE SYSTEM 
FOR 

HELLENIC ARMED FORCES FORMATIONS 









ENDDO WHILE 
RETURN 
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;♦:**;♦:***;+: PROGRAM SETDATE *****:+:;♦:* 



*■ This program asks the user to set the current date 
ERASE 

SET TALK OFF 

STORE " TO mdate 

STORE T TO continue 
DO WHILE continue 
ERASE 

@ 12,12 SAY "ENTER DATE (MM/DD/YY) ” GET mdate; 
PICTURE "99/99/99 

READ 

IF VAL( $( mdate, 1 , 2 ) ) < 1; 

.OR. VAL( $(mdate, 1, 2) ) > 12; 

.OR. VAL( $( mdate, 4, 2 ) ) < 1; 

.OR. VAL($(mdate, 4, 2) ) > 31; 

.OR. VAL( $(mdate, 7, 2 ) ) <> 85 
STORE " " TO mdate 

@ 22,15 SAY "INVALID DATE, PLEASE RETRY" 

STORE 1 TO del 
DO WHILE del < 35 

STORE del+1 TO del 
ENDDO WHILE 
LOOP 
ELSE 

STORE F TO continue 
SET DATE TO &mdate 
ENDIF 

ENDDO WHILE 
RETURN - 
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PROGRAM MONITR *****H<*5t: 



* This program adds a record in the file MONITOR each time a user 

* enters the system, to keep track of who does what and when. 

ERASE 

STORE " ■■ TO mjob 

STORE " ” TO mfle:rept 



* Use the fields ’ password ' and ’select' of file TEMPOR and store 

* the appropriate information to temporary memory variables 



SELECT SECONDARY 
USE tempor 

IF password = "QWERT" 

STORE "Ts agar is Panag” TO 
ELSE 

IF password = "ASDFG" 

STORE "Karaiskos Const" 
ELSE 

STORE "Unauthorized 



END IF 
END IF 
DO CASE 

CASE select = "11" 

STORE "Insertion " TO 

STORE "Master " TO 

CASE select = "12" 

STORE "Insertion " TO 

STORE "Units " TO 

CASE select = "13" 

STORE "Insertion " TO 

STORE "Ranks " TO 

CASE select = "14" 

STORE "Insertion " TO 

STORE "Duties " TO 

CASE select = "15" 

STORE "Insertion " TO 

STORE "Forlangs " TO 

CASE select = "16" 

STORE "Insertion " TO 

STORE "Sciences " TO 

CASE select = "21" 

STORE "Deletion " TO 

STORE "Master " TO 

CASE select = "22" 

STORE "Deletion " TO 

STORE "Units " TO 

CASE select = "23" 

STORE "Deletion " TO 

STORE "Ranks " TO 

CASE select = "24" 

STORE "Deletion " TO 

STORE "Duties " TO 



mname 



TO mname 
TO mname 



mjob 

mf le : rept 
mjob 

mf le : rept 
mjob 

mf le: rept 
mjob 

mf le: rept 
mjob 

mf le : rept 
mjob 

mf le: rept 
mjob 

mf le : rept 
mjob 

mf le : rept 
mjob 

mf le : rept 
mjob 

mf le ; rept 
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CASE select = '•25" 



STORE "Deletion 


TO 


mjob 


STORE "Forlangs 


TO 


mf le : rept 


CASE select = "26" 


STORE "Deletion 


TO 


mjob 


STORE "Sciences 


TO 


mf le : rept 


CASE select = "31" 


STORE "Modification" 


TO 


mjob 


STORE "Master 


TO 


mf le : rept 


CASE select = "32" 


STORE "Modification" 


TO 


mjob 


STORE "Units 


TO 


mf le : rept 


CASE select = "33" 


STORE "Modification" 


TO 


mjob 


STORE "Ranks 


TO 


mf le ; rept 


CASE select = "34" 


STORE "Modification" 


TO 


mjob 


STORE "Duties 


TO 


mf le : rept 


CASE select = "35" 


STORE "Modification" 


TO 


mjob 


STORE "Forlangs 


TO 


mf le : rept 


CASE select = "36" 


STORE "Modification" 


TO 


mjob 


STORE "Sciences 


TO 


mf le : rept 



CASE select = "1” 
IF sub3 



STORE "Printing 


" TO 


mjob 


STORE "Monitor 


" TO 


mf le: rept 


ELSE 






STORE "Printing 


" TO 


mjob 


STORE "Reportl 


" TO 


mf le : rept 


END IF 






CASE select = "2" 






IF sub3 






STORE "Printing 


" TO 


mjob 


STORE "Statistic 


" TO 


mf le: rept 


ELSE 






STORE "Printing 


" TO 


mjob 


STORE "Report2 


" TO 


mf le : rept 


END IF 






CASE select = "3" 






IF sub3 






STORE "Deletion 


" TO 


mjob 


STORE "Monitor 


" TO 


mf le : rept 


ELSE 






STORE "Printing 


" TO 


mjob 


STORE "Reports 


" TO 


mf le : rept 


ENDIF 






CASE select = "4" 






IF sub3 






STORE "Deletion 


" TO 


mjob 


STORE "Statistic 


" TO 


mf le : rept 


ELSE 






STORE "Printing 


" TO 


mjob 
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STORE "Report4 
ENDIF 

CASE select = "5" 

IF sub3 




TO mflerrept 


STORE "Screen Disp " 


TO mjob 


STORE "Master 
ELSE 




TO mflerrept 


STORE "Printing 


" 


TO mjob 


STORE "Reports 
ENDIF 

CASE select = "6" 




TO mflerrept 


STORE "Printing 


TO 


mjob 


STORE "Reports 
CASE select = "7" 


TO 


mf ler rept 


STORE "Printing 


TO 


mjob 


STORE "Report? 
CASE select = "8" 


TO 


mf le r rept 


STORE "Printing 


TO 


mjob 


STORE "Reports 
ENDCASE 

STORE counter TO mnumrec 


TO 


mf le r rept 



* Append the record to the MONITOR file 

SELECT SECONDARY 

USE monitor 

APPEND BLANK 

REPLACE date WITH DATE() 

REPLACE name WITH inname 
REPLACE job WITH mjob 
REPLACE flerrept WITH mfle:rept 
REPLACE numrec WITH mnumrec 
USE 

SELECT PRIMARY 
RETURN 
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**H<***** PROGRAM SUBMENUl ****x^*^* 



* This program controls the Update Operations 
of the system 



ERASE 

STORE " TO select 
DO WHILE T 
ERASE 

@ 2,50 SAY DATEO 

g 1 5 't' j(c 



@ 


4, 15 


SAY 










@ 


5, 15 


SAY 


•*5t: 


S U B M E 


N U 1 




@ 


6, 15 


SAY 




UPDATE OP 


ERATIONS 


)4c" 


@ 


7, 15 


SAY 








:4c" 


@ 


8, 15 


SAY 




@ 


9, 15 


SAY 




OPTIONS 


FILES 




@ 


10, 15 


SAY 


" 'M 






:4c" 








@ 


11, 15 


SAY 






1=MASTER 


)4c" 


@ 


12, 15 


SAY 




0=Exit to MAIN MENU 


2=UNITS 


:4c" 


@ 


13, 15 


SAY 




l=Insertion 


3=RANKS 




@ 


14, 15 


SAY 




2=Deletion 


4=DUTIES 


:4c" 


@ 


15, 15 


SAY 




3=Modif ication 


5=F0RLANGS 


:4c" 


@ 


16, 15 


SAY 






6=SCIENCES 


;tc" 


@ 


17, 15 


SAY 








>*c" 


@ 


18, 15 


SAY 




@ 


20, 15 


SAY 


" 


Make the appropriate 


selection by pressing' 



@ 21, 15 SAY 
@ 22, 15 SAY 
@ 23, 15 SAY 



"the option number first and then the file 
"number. For example, if you want to insert 
"records in file UNITS, press 12. 



ACCEPT TO selection 



* Store selection to the field select of the file TEMPOR 

* in order to be used by the monitor program 



SELECT PRIMARY 
USE temper 

REPLACE select WITH selection 
USE 



* Accept the selection and branch to the corresponding program 
DO CASE 

CASE selection = "0" 

RETURN 

CASE selection = "11" 

DO insertl 

CASE selection = "12" 

DO insert2 

CASE selection = "13" 

DO insert3 

CASE selection = "14" 

DO insert4 

CASE selection = "15" 
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•■16" 



DO inserts 
CASE selection 
DO inserts 
CASE selection 
DO deletel 
CASE selection 
DO delete2 
CASE selection 
DO deletes 
CASE selection 
DO delete4 
CASE selection 
DO deletes 
CASE selection 
DO deletes 



" 21 " 



■• 22 " 



"23" 



"24" 



"2S" 



■•2S" 



CASE selection = "31" 
DO modifyl 

CASE selection = "32" 
DO modify2 

CASE selection = "33" 
DO modifyS 

CASE selection = "34" 
DO modify4 

CASE selection = "3S" 
DO modifyS 

CASE selection = "3S" 



DO modifyS 
OTHERWISE 
? CHR(7) 

ERASE 

@ 10, 17 SAY selection+" IS AN ILLEGAL SELECTION" 
@ 10,43 SAY ", PLEASE TRY AGAIN" 

SET TALK OFF 
STORE 1 TO delay 
DO WHILE delay < 40 



STORE delay+1 TO delay 
ENDDO WHILE 
ENDCASE 
ENDDO WHILE T 
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PROGRAM SUBMENU2 >«***::«**;♦: 

* This prograun controls the Report Generators 

* function of the system 

STORE T TO noexit 
STORE F TO sub3 
DO WHILE noexit 
SET PRINT OFF 
ERASE 

@ 1, 50 SAY DATE( ) 

@ 3^ 13 SAY S U B M E N U 2 

@ 4, 13 SAY '•»< REPORTS AVAILABLE *' 

@ 6, 13 SAY l=List of officers in alphabetical order 

@ 7, 13 SAY "* 

@ 8, 13 SAY 2=List of officers ordered by rank 

@ 9, 13 SAY '** 

@ 10, 13 SAY 3=List of units with their officers 
@ 11, 13 SAY *' 

@ 12,13 SAY 4=List of officers with non_military studies 
@ 13, 13 SAY "*■ 

@ 14, 13 SAY 5=List of officers who know foreign languages 
@ 15, 13 SAY 

@ 16, 13 SAY 6=List of officers including marital status 
@ 17,13 SAY "* 

@ 18, 13 SAY 7=List of officers with service times 
@ 19, 13 SAY 

@ 20, 13 SAY 8=List of officers with addresses and phone# 

@ 22, 13 SAY " Enter the corresponding number OR 

@ 23, 13 SAY " enter 0 to exit to main menu 

STORE " " TO choice 
WAIT TO choice 

* Store choice to the "select" field of tempor to be used 

* by the monitor program 

SELECT SECONDARY 
USE tempor 

REPLACE select WITH choice 
USE 

* Accept the choice and brainch to corresponding program 
DO CASE 

CASE choice = "0" 

RETURN 

CASE choice = "1" 

DO report 1 
CASE choice = "2" 

DO report2 
CASE choice = "3" 
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DO reports 
CASE choice = "4" 

DO report4 
CASE choice = "5" 

DO reports 
CASE choice = "6" 

DO reports 
CASE choice = "7" 

DO report? 

CASE choice = "8" 

DO reports 
OTHERWISE 

* Print an error messsLge and give another chance 

ERASE 
? CHR(7) 

@ 10,17 SAY choice+" IS AN ILLEGAL CHOICE - TRY AGAIN" 
STORE 1 TO del 
DO WHILE del < 40 

STORE del+1 TO del 
ENDDO WHILE 
ENDCASE 
ENDDO WHILE 
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PROGRAM SUBMENUS *^*^^^*^ 

* 

* This program controls the Miscellaneous function 

* of the system 

* 



ERASE 

STORE T TO noexit 
STORE T TO sub3 
DO WHILE noexit 
ERASE 

SET PRINT OFF 
@ 3,52 SAY DATEO 

^ 16 ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ' * 



@ 


5, 16 


SAY 












@ 


6, 16 


SAY 








SUBMENU3 




@ 


7, 16 


SAY 




MISCELLANEOUS OPERATIONS 




@ 


8, 16 


SAY 












@ 


9, 16 


SAY 


' * ^ * * * * :+c 


@ 


10, 16 


SAY 












@ 


11, 16 


SAY 




0 


— 


Exit to MAIN MENU 




@ 


12, 16 


SAY 




1 


— 


Print MONITOR file 




@ 


13, 16 


SAY 




2 


= 


Print STATISTIC file 




@ 


14, 16 


SAY 




3 


z: 


Delete MONITOR file 


*• 


@ 


15, 16 


SAY 




4 


- 


Delete STATISTIC file 




@ 


16, 16 


SAY 




5 


z: 


Display an officer's data 




@ 


17, 16 


SAY 








on the screen 




@ 


18, 16 


SAY 


" :<c ^ * )(c ^ >K ^ ^ ;<ct; :<c :<c ^ ;<c))c He " 


@ 


20, 16 


SAY 




Enter 


the corresponding number 


" 



STORE " " TO choice 
WAIT TO choice 



* Store choice to the "select" field of TEMPOR to be used 

* by the monitor program 



SELECT SECONDARY 
USE tempor 

REPLACE select WITH choice 
USE 



*■ Accept choice and branch to the corresponding program 
DO CASE 

CASE choice = "0" 

RETURN 

CASE choice = "1" 

DO printmon 
CASE choice = "2" 

DO printstat 
CASE choice = "3" 

DO delmon 
CASE choice = "4" 

DO delstaj: 

CASE choice = "5" 

DO dispscrn 
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OTHERWISE 



* Print an error message and give another chance 

ERASE 
? CHR(7) 

@ 11,17 SAY choice+" IS AN ILLEGAL CHOICE - TRY AGAIN" 
STORE 1 TO del 
DO WHILE del < 40 

STORE del+1 TO del 
ENDDO WHILE 
ENDCASE 
ENDDO WHILE 
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B. PROGRAMS IMPLEMENTING THE UPDATE OPERATIONS 



These programs permit the user to perform insertions, 
deletions, and modifications in the files of the database. 

1 . Insertion Programs 

These programs are for adding records to the data- 
base files. The structure of all the programs follow the 
same logic, so we will describe only the program which adds 
records to the MASTER (PERSONNEL) file. 

The whole structure of the program is as follows: 

a. The MASTER file is opened. 

b. The user is prompted to enter the new serial 
number or a blank in order to exit to SUBMENUl, when he is 
finished. 

c. The program searches the MASTER file for the 
new serial number. If it already exists, prints an error 
message and gives another chance, otherwise it proceeds. 

d. The proper memory variables, in which the new 
values are to be stored, are initialized to blanks. For 
simplicity the names of the memory variables are the same 
as the corresponding field names with the prefix 'm' , which 
stands for memory. This holds throughout the whole system. 

e. Then the program displays on the screen the new 
serial number, the names of the fields and the corresponding 
blank space. Then the user can enter the new values. Again 
the user has the opportunity to exit by pressing 'ENTER'. 



56 



f. Then a blank record is appended to the MASTER 
file and each field is replaced with the corresponding 
memory variable. 

g. The whole operation is repeated within a WHILE 
loop, until the user exits. 

h. The program MONITR which is for monitoring every 
job done in the database, is called only once before the 
program exits from either of the three possible exits, and 
after the number of changes is stored in the field 'counter' 
of the file TEMPOR. This is performed in all the programs 
that need to monitor the job done in the database. 

The listings of the programs are given in the fol- 
lowing pages. 
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PROGRAM INSERTl 



* This program adds records to MASTER (PERSONNEL) file 
ERASE 

SELECT PRIMARY 

USE master INDEX master 

STORE 0 TO count 

STORE "***** ADDING RECORDS TO MASTER FILE TO titlel 

STORE T TO continue 
DO WHILE continue 
ERASE 

STORE ■■ " to mserno 

@ 5,60 SAY DATEO 
@7,5 SAY titlel 

@ 10,5 SAY "ENTER A SERIAL NUMBER" GET mserno PICTURE "9999" 
@ 12,5 SAY "Press 'ENTER' to exit" 

READ 

IF $(mserno, 1, 1 ) = " " 

USE 

* Before the program returns, it stores the variable 

* count (tt of changes) to the field 'counter' of TEMPOR 

* and records the changes. This is done in all three 

* exits of the program. 

IF count > 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 



* Search the master file for the new serial number. 

* If it already exists print an error messeige, display 

* the record eind let the user decide what to do. 

FIND &mserno 
IF « <> 0 
? CHR(7) 

@ 14,5 SAY "The record already exists" 

@ 16,5 SAY "The current record is;" 

@ 18,5 SAY "serial number = "+serno 
@ 19,5 SAY "name = "+name 

@ 21,5 SAY "TRY AGAIN? (Y/N)" 

STORE " " TO answer 
WAIT TO answer 
IF answer = "y" 

LOOP 

ELSE 

USE 
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IF count > 0 

SELECT SECONDARY 
USE temper 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 
END IF 

* Initialize memory variables 



ERASE 

STORE 




TO mname 


STORE 


<• •• 


TO mrank 


STORE 




TO munit 


STORE 




TO mserentry 


STORE 




” TO mreptdate 


STORE 


M •• 


TO mduty 


STORE 


M •• 


TO meducat 


STORE 


• • II 


TO mdegree 


STORE 


II II 


TO mforlang 


STORE 


• I II 


TO mmarstat 


STORE 


II II 


TO mchildren 


STORE 




" TO maddress 


STORE 




TO mphone 


© 1,60 


SAY 


DATEO 


© 2,5 


SAY 


titlel 


©4,5 


SAY 


"serial number = "+mserno 


* Get 


the 


values for the new record 


© 5,5 


SAY 


"name " GET mname; 



@ 6,5 SAY "rank 

@ 7,5 SAY "unit 

@ 8,5 SAY "serentry 

@ 9,5 SAY "reptdate 

@ 10,5 SAY "duty 
@ 11,5 SAY "educat 
@ 12,5 SAY "degree 
@ 13,5 SAY "forlang 
© 14, 5 SAY "marstat 
© 15,5 SAY "children 
© 16, 5 SAY "address 



© 17, 5 SAY "phone 
© 20, 5 SAY "Enter blanks to exit" 
READ 

IF ${mnaune, 1, 1 ) = 

USE 

IF count > 0 

SELECT SECONDARY 



PICTURE "XXXXXXXXXXXXXXXX" 

GET mrank PICTURE "99" 

GET munit PICTURE "9999" 

GET mserentry PICTURE "999999 ' 
GET mreptdate PICTURE "999999' 
GET mduty PICTURE "99" 

GET meducat PICTURE "99" 

GET mdegree PICTURE "A" 

GET mforlang PICTURE "99" 

GET mmarstat PICTURE "A" 

GET mchildren PICTURE "9" 

GET maddress; 

PICTURE "XXXXXXXXXXXXXXXXXXXX' 
GET mphone PICTURE "9999999" 
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USE temper 

REPLACE counter WITH count 
USE 

DO monitr 
ENDIF 
RETURN 
ENDIF 

* Append a new empty record in the master file and replace 

* each field with the corresponding memory variable. 

APPEND BLANK 

REPLACE serno WITH mserno 
REPLACE name WITH mname 
REPLACE rank WITH mrank 
REPLACE unit WITH munit 
REPLACE serentry WITH mserentry 
REPLACE reptdate WITH mreptdate 
REPLACE duty WITH mduty 
REPLACE educat WITH meducat 
REPLACE degree WITH mdegree 
REPLACE forleing WITH mforlang 
REPLACE mars tat WITH mmarstat 
REPLACE children WITH mchildren 
REPLACE address WITH maddress 
REPLACE phone WITH mphone 
STORE count+1 TO count 
ENDDO WHILE continue 
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*******5K program INSERT2 



* This program adds records to UNITS file 
ERASE 

SELECT PRIMARY 

USE units INDEX units 

STORE "***** ADDING RECORDS TO UNITS FILE *****" TO title2 
STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

STORE " TO mcode 

@ 5,60 SAY DATEO 
@7,5 SAY title2 

@ 10,5 SAY "ENTER A UNIT CODE" GET mcode PICTURE "9999" 

@ 12,5 SAY "Press 'ENTER' to exit" 

READ 

IF ${mcode,l,l) = " " 

USE 

* Before the program returns, it updates the TEMPOR and 

* MONITOR files. This is done in all three exits of the 
^ program 

IF count > 0 

SELECT SECONDARY 
USE TEMPOR 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 

* Search the units file for the new unit code. If it already exists 

* print an error message and give another chance otherwise proceed. 

FIND &mcode 
IF <> 0 
? CHR(7) 

@ 14,5 SAY "The record already exists" 

@ 16,5 SAY "The current record is:" 

@ 18,5 SAY "code = "+code 

@ 19,5 SAY "title = "+title 

@ 20,5 SAY "location = "+location 

@ 22,5 SAY "TRY AGAIN ? (Y/N)" 

STORE " " TO answer 
WAIT TO answer 
IF answer = "y" 

LOOP 

ELSE 

USE 

IF count > 0 
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SELECT SECONDARY 
USE temper 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
ENDIF 
END IF 



* Initialize memory variables 
ERASE 

STORE " " TO mtitle 

STORE ■’ ■' TO mlocation 

@ 3,60 SAY DATEO 

@5,5 SAY title2 

@8,5 SAY "unit code = ”+mcode 

@ 10,5 SAY "title " GET mtitle PICTURE " XXXXXXXXXXXXXXX " 
@ 11,5 SAY "location” GET mlocation PICTURE "XXXXXXXXXXXX" 
@ 15, 5 SAY "Enter blanks to exit" 

READ 

IF ${mtitle, 1, 1 ) = " " 

USE 

IF count > 0 

SELECT SECONDARY 
USE temper 

REPLACE counter WITH count 
USE 

DO monitr 
ENDIF 
RETURN 
ENDIF 



* Append a blank record in the units file and replace 

* each field with the corresponding memory variables 

APPEND BLANK 
REPLACE code WITH mcode 
REPLACE title WITH mtitle 
REPLACE location WITH mlocation 
STORE counts 1 TO count 
ENDDO WHILE continue 
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*****^:<^* PROGRAM INSERT3 



* This prograum adds records to RANKS file 
ERASE 

SELECT PRIMARY 

USE ranks INDEX ranks 

STORE ADDING RECORDS TO RANKS FILE *****" TO title3 

STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

STORE " " TO mcode 

@ 5,60 SAY DATEO 
@7,5 SAY titles 

@ 10,5 SAY "ENTER A RANK CODE" GET mcode PICTURE "99" 

@ 12,5 SAY "Press 'ENTER' to exit" 

READ 

IF $(mcode, 1,1) = " " 

USE 

IF count > 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 
USE 

DO monitr 
ENDIF 
RETURN 
ENDIF 



* Search the RANKS file for the new code. If it already 

* exists print an error message and give another chance 

* otherwise proceed 



FIND &mcode 



a 


<> 0 






CHR(7) 




@ 


14, 10 


SAY 


@ 


16, 5 


SAY 


@ 


18, 5 


SAY 


@ 


19, 5 


SAY 


@ 


20, 5 


SAY 


@ 


22, 5 


SAY 


STORE " 


" TO 



The record already exists" 
The current record is : " 
code = "+code 

armyname = "+armyname 
navyname = "+navyname 
TRY AGAIN ? (Y/N)" 

answer 



WAIT TO answer 
IF answer = "y" 

LOOP 

ELSE 

USE 

IF count > 0 

SELECT SECONDARY 



USE tempor 

REPLACE counter WITH count 



USE 
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DO monitr 
END IF 
RETURN 
END IF 
END IF 

* Initialize memory variables 
ERASE 

STORE " ■’ TO marmyname 

STORE '■ ■' TO mnavyname 

* Get the new values 

@ 4,60 SAY DATEO 

@5,5 SAY titles 

@ 8,5 SAY "Rank code = "+mcode 

@ 10, 5 SAY "armyname" GET marmyname PICTURE "XXXX" 
@ 11,5 SAY "navyname" GET mnavyname PICTURE "XXXX" 
READ 

* Append the new record to the RANKS file 

APPEND BLANK 
REPLACE code WITH me ode 
REPLACE armyname WITH marmyname 
REPLACE navyname WITH mnavyname 
STORE count +1 TO count 
ENDDO WHILE continue 
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PROGRAM INSERT4 



* This program adds records to DUTIES file 
ERASE 

SELECT PRIMARY 

USE duties INDEX duties 

STORE “***** ADDIND RECORDS TO DUTIES FILE *****" TO title4 
STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

STORE ’■ " TO mcode 

@5,60 SAY DATEO 
@7,5 SAY title4 

@ 10,5 SAY "ENTER A DUTY CODE" GET mcode PICTURE "99" 

@ 12,5 SAY "Press 'ENTER' to exit" 

READ 

IF $(mcode, 1,1) = " " 

USE 

IF count > 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 



* Search DUTIES file for the new code. If it exists print an 

* error message and give another chance, otherwise proceed. 



FIND &mcode 
IF <> 0 



? CHR(7) 
@ 14,5 
@ 16,5 
@ 18,5 
@ 19,5 
@ 21,5 
STORE " 



SAY "The record already exists 
SAY "The current record is:" 
SAY "code = "+code 
SAY "name = "+name 
SAY "TRY AGAIN ? (Y/N)" 

" TO answer 



WAIT TO answer 



IF answer = "y" 
LOOP 
ELSE 
USE 



IF count > 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 



USE 

DO monitr 



END IF 
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RETURN 
END IF 
END IF 

STORE ■' ■' TO mname 

ERASE 

@ 5, 60 SAY DATE( ) 

@7,5 SAY title4 
@ 10, 5 SAY "duty code = "+mcode 

@ 12,5 SAY "name" GET mname PICTURE "XXXXXXXXXXXXXXXXXXXX" 
READ 

*■ Append the record to DUTIES file 

APPEND BLANK 
REPLACE code WITH mcode 
REPLACE name WITH mname 
STORE count +1 TO count 
ENDDO WHILE continue 
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******** PROGRAM INSERTS ******** 



* This program adds records to FOREIGN LANGUAGES file 
ERASE 

SELECT PRIMARY 

USE forlangs INDEX forlangs 

STORE "*****^ ADDING RECORDS TO FORLANGS FILE *****" TO titleS 
STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

STORE ■' " TO mcode 

@5,60 SAY DATEO 
@7,5 SAY titles 

@ 10,5 SAY "ENTER A LANGUAGE CODE" GET mcode PICTURE "99" 

@ 12,5 SAY "Press 'ENTER’ to exit" 

READ 

IF $(mcode,l,l) = " " 

USE 

IF count > 0 

SELECT SECONDARY 
USE temper 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 

* Search the forlangs file for the new code. If it already 
exists, print an error message and give another change, 

* otherwise proceed 

FIND &mcode 
IF # <> 0 
? CHR(7) 

@ 14,5 SAY "The record already exists. Try again." 

@ 16,5 SAY "The current record is:" 

@ 18,5 SAY "code = "+code 
@ 19,5 SAY "name = "+naLme 
@21,5 SAY "TRY AGAIN? (Y/N)" 

STORE " " TO answer 
WAIT TO answer 
IF answer = "y" 

LOOP 

ELSE 

USE 

IF count > 0 

SELECT SECONDARY 
USE temper 

REPLACE counter WITH count 
USE 

DO monitr 
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END IF 
RETURN 
END IF 
END IF 

* Initialize memory variables. 

ERASE 

STORE " " TO mname 

@ 4,60 SAY DATEO 
@5,5 SAY title5 

@ 8,5 SAY "language code = "+mcode 

* Get the name for the new language. 

@ 10,5 SAY "name" GET mname PICTURE " XXXXXXXXXXXX " 
READ 

* Append an empty record and replace the fields 

* with the corresponding memory variables. 

APPEND BLANK 
REPLACE code WITH mcode 
REPLACE name WITH mname 
STORE count +1 TO count 
ENDDO WHILE continue 
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****♦*;♦:* PROGRAM INSERTS *****^:<c* 



* This program adds records to SCIENCES file 
ERASE 

SELECT PRIMARY 

USE sciences INDEX sciences 

STORE "***** ADDIND RECORDS TO SCIENCES FILE *****" TO titleS 
STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

STORE " " to mcode 

@ 5,60 SAY DATEO 
@7,5 SAY titles 

@ 10,5 SAY "ENTER A SCIENCE CODE" GET mcode PICTURE "99" 

@ 12,5 SAY "Press 'ENTER' to exit" 

READ 

IF $(mcode, 1,1) = "" 

USE 

IF count > 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
ENDIF 

* Search the sciences file for the new code. If it already 

* exists, print an error message and give another chance, 

* otherwise proceed 

FIND &mcode 
IF # <> 0 
? CHR(7) 

@ 14,5 SAY "The record already exists" 

@ 16,5 SAY "The current record is:" 

@ 18,5 SAY "code = "+code 
@ 19, 5 SAY "name = "+name 
@ 21,5 SAY "TRY AGAIN? (Y/N)" 

STORE " " TO answer 
WAIT TO answer 
IF answer = "y" 

LOOP 

ELSE 

USE 

IF count > 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 
USE 

DO monitr 
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END IF 
RETURN 
END IF 
END IF 

* Initialize memory variable 

ERASE 

STORE ” " TO mname 

@ 4,60 SAY DATEO 
@5,5 SAY titles 

@8,5 SAY "science code = "+mcode 

* Get the name for the new science 

@ 10,5 SAY "name" GET mname PICTURE " XXXXXXXXXXXXXXXXXXX " 
READ 

* Append an empty record and replace the fields with 

* the corresponding memory variable. 

APPEND BLANK 
REPLACE code WITH mcode 
REPLACE name WITH mname 
STORE count +1 TO count 
ENDDO WHILE continue 
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2 . Deletion Programs 



These programs are for deleting records from the 
files of the database. Again we will describe only the 
program that performs deletions from the MASTER file since 
all the other programs have the same structure. 

The structure of the program is as follows: 

a. The MASTER file is opened. 

b. The user is prompted to enter the serial number, 
which is the key value of the record to be deleted. He 

can also exit by pressing 'ENTER'. 

c. When the user exits after he is finished, that 
is, after several deletions have been made, then the number 
of deletions which is kept in the variable 'count', is trans- 
ferred to the field 'counter' of the file TEMPOR. Then the 
program MONITR is called to record the changes. If the user 
exits at the beginning, that is, without doing anything, then 
the program returns to SUBMENUl . 

d. The MASTER file is searched for the serial num- 
ber. If the record does not exist, the program prints an 
error message, and gives another chance. If the record 
exists, then it is displayed on the screen. 

e. At this point the user is asked to confirm the 
deletion. If he is sure that the record must be deleted, 

he has just to enter 'Y', and the deletion operation is per- 
formed, otherwise he has to enter 'N' to abort the deletion. 

Then the program loops, repeating the whole operation. 

The listings of the programs are given in the next pages. 
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******;♦:;♦: PROGRAM DELETEl ******^* 



* This program deletes records from MASTER file 
ERASE 

SELECT PRIMARY 

USE master INDEX master 

STORE "**:*^* DELETING RECORDS FROM MASTER FILE *****" TO title 
STORE " ■' TO mserno 

STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

@5,60 SAY DATEO 
@7,5 SAY title 

@ 10,5 SAY "Enter serial number" GET mserno PICTURE "9999" 

@ 12,5 SAY "Press ’ENTER’ to exit" 

READ 

IF $(mserno, 1, 1 ) = " " 

USE 

* If the user has already made deletions store the 

* number of deletions in the file TEMPOR, record 

* the changes and return to SUBMENUl, otherwise 

* just return 

IF count <> 0 

SELECT SECONDARY 
USE temper 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 

* Search MASTER file for the serial number. If the 

* record does not exist print an error message and 

* give another chance, otherwise display the 

* record and let the user confirm the deletion. 

FIND &mserno 
IF # = 0 
? CHR(7) 

@ 22,5 SAY "The record does not exist, try again" 

STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
STORE " " TO mserno 

LOOP 
ELSE 

ERASE 

@ 2, 60 SAY DATE( ) 
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@ 

@ 


3, 5 
5, 5 


SAY title 

SAY "Record to be deleted" 


@ 


7,5 


SAY "serno 




"+serno 


@ 


8, 5 


SAY "name 


= 


"+name 


@ 


9, 5 


SAY "rank 




"+rank 


@ 


10, 5 


SAY "unit 




"+unit 


@ 


11, 5 


SAY "serentry 


= 


"+serentry 


@ 


12, 5 


SAY "reptdate 




"+reptdate 




13, 5 


SAY "duty 




" +duty 


@ 


14, 5 


SAY "educat 


= 


"+educat 


@ 


15, 5 


SAY "degree 




"+degree 


@ 


16, 5 


SAY "forlang 


— 


"+forlang 


@ 


17, 5 


SAY "mars tat 


— 


"+marstat 


@ 


18, 5 


SAY "children 




"+children 


@ 


19, 5 


SAY "address 




"+address 


@ 


20, 5 


SAY "phone 


— 


"+phone 


9 

@ 


CHR(7) 

22,5 SAY "The record 


will be de! 



PROCEED 



STORE '• 
WAIT TO 



" TO einswer 
answer 



* If the user confirms the deletion some data 

* concerning the officer in question are 

* transfered to the STATISTIC file and then the 

* deletion is performed. 

IF answer = "y" 

SELECT SECONDARY . 

USE statistic 
APPEND BLANK 

REPLACE serno WITH p. serno 
REPLACE name WITH p.name 
REPLACE rank WITH p. rank 
REPLACE unit WITH p.unit 
REPLACE reptdate WITH ; 

$(p. reptdate, 1, 2 ) +" /" +$(p. reptdate, 3,2)+"/" 
+$(p. reptdate, 5,2) 

REPLACE deldate WITH DATE( ) 

USE 

SELECT PRIMARY 

DELETE 

PACK 

STORE count+1 TO count 
END IF 
ENDIF 

STORE " " TO mserno 

ENDDO WHILE continue 



(Y/N)" 
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PROGRAM DELETE2 



* This program deletes records from UNITS file 
ERASE 

SELECT PRIMARY 

USE units INDEX units 

STORE DELETING RECORDS FROM UNITS FILE ****♦" TO tittle 

STORE " TO mcode 

STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

@ 5,60 SAY DATEO 
@7,5 SAY tittle 

@ 10,5 SAY "Enter unit code" GET mcode PICTURE "9999" 

@ 12,5 SAY "Press 'ENTER' to exit" 

READ 

IF $(mcode, 1,1) = " " 

USE 

* If the user has already made deletions , store the number 

* of deletions in the file TEMPOR, record the changes and 

* and return to SUBMENUl, otherwise just return. 

IF count <> 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 

* Search UNITS file for the unit code. If the record does not 
*■ exist print an error message and give another chance, 

* otherwise display the record and let the user confirm 
*■ the deletion 

FIND &mcode 
IF # = 0 
? CHR(7) 

@ 22,5 SAY " The record does not exist, try eigain" 

STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
STORE " " TO mcode 

LOOP 
ELSE 

ERASE 

@2,60 SAY DATE( ) 

@ 3,5 SAY tittle 
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@5,5 SAY "Record to be deleted" 

@ 7,5 SAY "code = "+code 

@8,5 SAY "title = "+title 

@ 9,5 SAY "location = "+ location 
? CHR(7) 

@ 15, 5 SAY "The record will be deleted. PROCEED ? 
STORE " " TO answer 
WAIT TO answer 
IF answer = "y" 

DELETE 

PACK 

STORE count+1 TO count 
END IF 
ENDIF 

STORE " " TO mcode 

ENDDO WHILE continue 



(Y/N)" 
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;♦::♦:;♦:***** PROGRAM DELETES **:t:**^** 

* This program deletes records from RANECS file 

ERASE 

CLEAR 

SELECT PRIMARY 

USE ranks INDEX rauiks 

STORE "***** DELETING RECORDS FROM RANKS FILE *^*:^*" TO title 
STORE " " TO mcode 

STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

@ 5,60 SAY DATEO 
@7,5 SAY title 

@ 10,5 SAY "Enter rank code" GET mcode PICTURE "99" 

@ 12,5 SAY "Press 'ENTER' to exit" 

READ 

IF $(mcode, 1, 1) = " " 

USE 

*■ If the user has already made deletions, store the number 

* of deletions in the file TEMPOR, record the changes aund 

* return to SUBMENUl, otherwise just return. 

IF count <> 0 

SELECT SECONDARY 
USE temper 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 

* Search RANKS file for the code. If the record does not exist, 

* print an error message aund give auiother chance, otherwise 

* display the record and let the user confirm the deletion. 

FIND &mcode 
IF = 0 
? CHR(7) 

@ 22,5 SAY "The record does not exist, try again" 

STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
STORE " " TO mcode 

LOOP 
ELSE 

ERASE 

@ 2, 60 SAY DATE( ) 

@3,5 SAY title 
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(Y/N)” 



@ 5,5 SAY "Record to be deleted" 

@ 7,5 SAY "code = "+code 

© 8,5 SAY "armyname = "+armyname 

@ 9,5 SAY "navyname = "+navyname 

? CHR(7) 

© 15,10 SAY "The record will be deleted. PROCEED ? 
STORE ” " TO answer 
WAIT TO answer 
IF answer = "y" 

DELETE 

PACK 

STORE count +1 TO count 
ENDIF 
ENDIF 

STORE " " TO mcode 

ENDDO WHILE continue 
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PROGRAM DELETE4 ^Xc***:*:** 



* This program deletes records from DUTIES file 
ERASE 

SELECT PRIMARY 

USE duties INDEX duties 

STORE "***** DELETING RECORDS FROM DUTIES FILE **xcxcx<" TO title 
STORE " " TO mcode 

STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

@ 5,60 SAY DATEO 
@7,5 SAY title 

@ 10,5 SAY "Enter duty code" GET mcode PICTURE "99" 

@ 12,5 SAY "Press 'ENTER' to exit" 

READ 

IF $(mcode, 1,1) = " " 

USE 

x: If the user has already made deletions store the number 

X: of deletions in the file TEMPOR, record the changes and 

* return to SUBMENUl, otherwise just return. 

IF count <> 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 

X: Search DUTIES file for the duty code. If the record does not 

* exist, print an error message and give another chance, other- 

* wise display the record and let the user confirm the deletion 

FIND &mcode 
IF # = 0 
? CHR(7) 

@22,5 SAY "The record does not exist, try again" 

STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
STORE " " TO mcode 

LOOP 
ELSE 

ERASE 

@2,60 SAY DATE( ) 

@3,5 SAY title 

@5,5 SAY "Record to be deleted" 
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(Y/N)" 



@7,5 SAY "code = "+code 
@ 8,5 SAY "name = "+name 
? CHR(7) 

@ 15, 5 SAY "The record will be deleted. 
STORE " " TO answer 
WAIT TO answer 
IF answer = "y" 

DELETE 

PACK 

STORE count +1 TO count 
END IF 
ENDIF 

STORE " " TO mcode 

ENDDO WHILE continue 



PROCEED ? 
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PROGRAM DELETES *:^c*:****:^< 



* This program deletes records from FORLANGS file 
ERASE 

SELECT PRIMARY 

USE forlangs INDEX forlaings 

STORE DELETING RECORDS FROM FORLANGS FILE *****" TO title 

STORE " " TO mcode 

STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

@ 5, 60 SAY DATE( ) 

@7,5 SAY title 

@ 10,5 SAY "Enter language code" GET mcode PICTURE "99" 

@ 12,5 SAY "Press ’ENTER' to exit" 

READ 

IF $(mcode, 1,1) = " " 

USE 

* If the user has already made deletions, update the file 

* TEMPOR, record the changes and return to SUBMENUl, 

* otherwise just return. 

IF count <> 0 

SELECT SECONDARY 
USE temper 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 

* Search FORLANGS file for the code. If the record does not 

* exist, print an error message and give another chance, 

* otherwise displaiy the record and let the user confirm 

* the deletion 

FIND &mcode 
IF # = 0 
? CHR(7) 

@ 22,5 SAY "The record does not exist, try aigain" 

STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
STORE " " TO mcode 

LOOP 
ELSE 

ERASE 

@ 2, 60 SAY DATE( ) 

@ 3,5 SAY title 
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(Y/N)“ 



@ 5,5 SAY "Record to be deleted" 

@ 7,5 SAY "code = "+code 
@ 8,5 SAY "name = "+name 
? CHR(7) 

@ 15,5 SAY "The record will be deleted. PROCEED ? 
STORE " " TO answer 
WAIT TO answer 
IF einswer = "y" 

DELETE 

PACK 

STORE count+1 TO count 
END IF 
ENDIF 

STORE " " TO mcode 

ENDDO WHILE continue 
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PROGRAM DELETE6 



* This program deletes records from SCIENCES file 
ERASE 

SELECT PRIMARY 

USE sciences INDEX sciences 

STORE DELETING RECORDS FROM SCIENCES FILE ***>x>x" TO title 

STORE '■ " TO mcode 

STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

@5,60 SAY DATEO 
@7,5 SAY title 

@ 10,5 SAY "Enter science code" GET mcode PICTURE "99" 

@ 12,5 SAY "Press 'ENTER' to exit" 

READ 

IF $(mcode, 1,1) = " " 

USE 

If the user has already made deletions, update the file 

* TEMPOR, record the changes and return to SUBMENU 1, 

* otherwise just return. 

IF count <> 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 

* Search SCIENCES file for the code. If the record does not 

* exist, print an error messaige and give another chance, 

* otherwise display the record and let the user confirm 

* the deletion 

FIND &mcode 
IF = 0 
? CHR(7) 

@ 22,5 SAY "The record does not exist, try again" 

STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
STORE " " TO mcode 

LOOP 
ELSE 

ERASE 

@ 2, 60 SAY DATE( ) 

@3,5 SAY title 
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@5,5 SAY "Record to be deleted" 

@ 7,5 SAY "code = "+code 
@ 8,5 SAY "name = "+name 
? CHR(7) 

@ 15,5 SAY "The record will be deleted. PROCEED ? 
STORE " " TO answer 
WAIT TO answer 
IF answer = "y" 

DELETE 

PACK 

STORE count+1 TO count 
END IF 
END IF 

STORE " " TO mcode 

ENDDO WHILE continue 



(Y/N)" 
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3 . Modification Programs 



These programs modify records in the files of the 
database. Since the structure of all the programs is the 
same, we will describe only the program MODIFYl which makes 
changes in the MASTER file. 

The structure of the program is as follows; 

a. The MASTER file is opened. 

b. An appropriate message is displayed on the 
screen, prompting the user to enter the serial number of 
the officer whose record is to be modified. At this point 
he may exit the program by pressing 'ENTER', either after 

he has made the modifications he wants, or at the beginning, 
without having done anything. In the latter case the pro- 
gram just returns to SUBMENUl. In the former case the pro- 
gram updates the MONITOR file and then returns. Before the 
program exits, it closes the MASTER file. 

c. The MASTER file is searched for the serial 
number. If the record does not exist, the program displays 
an error message, and loops giving another chance . 

d. If the record exists, then the field values are 
stored to temporary m.emory variables, and the record is 
displayed on the screen. 

e. Now the user can modify any field he wants, by 
moving the cursor and overwriting the existing values. 

f. When he is finished, the old field values are 
replaced by the modified memory variables, and the record 
is placed back in the file. 
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g. The whole operation continued under the control 
of a WHILE loop, until the user exits. 

The listings of the programs are given in the 
following pages. 
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****;f:**;+: PROGRAM MODIFYl 



, * This program modifies records in MASTER file 
ERASE 

SELECT PRIMARY 

USE master INDEX master 

STORE ■'*****: MODIFYING RECORDS IN MASTER FILE ****>f^" to TITLE 
STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

STORE ■’ " TO mserno 

* Get the serial number 

@ 5,60 SAY DATEO 
@7,5 SAY title 

@ 10,5 SAY "Enter serial number" GET mserno PICTURE "9999" 
@ 12,5 SAY "Press ’ENTER’ to exit" 

READ 

IF $(mserno, 1, 1 ) = " " 

USE 

* Update the TEMPOR file and record the changes 

IF count <> 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 

* Look up MASTER file for the serial number 

FIND &mserno 
IF n=0 

? CHR(7) 

@ 22, 10 SAY "The record does not exist, try aigain" 

SET TALK OFF 
STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
LOOP 
END IF 

* Store current field values to temporary memory variables 

STORE name TO mname 
STORE rank TO mrank 
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STORE unit TO munit 
STORE serentry TO mserentry 
STORE reptdate TO mreptdate 
STORE duty TO mduty 
STORE educat TO meducat 
STORE degree TO mdegree 
STORE forlang TO mforlang 
STORE marstat TO mmarstat 
STORE children TO mchildren 
STORE address TO maddress 
STORE phone TO mphone 

*■ Display the record and get the new field values 
ERASE 



0 


1, 60 


SAY DATEO 






© 


2,5 


SAY title 






© 


4, 5 


SAY "Serial number 


= "+mserno 


© 


6, 5 


SAY "Serno 


GET 


mserno 


© 


7,5 


SAY "Name 


GET 


mname 


© 


8, 5 


SAY "Rank 


GET 


mrank 


© 


9, 5 


SAY "Unit 


GET 


munit 


© 


10, 5 


SAY "Serentry" 


GET 


mserentry 


© 


11, 5 


SAY "Reptdate" 


GET 


mreptdate 


© 


12, 5 


SAY "Duty 


GET 


mduty 


© 


13, 5 


SAY "Educat " 


GET 


meducat 


© 


14, 5 


SAY "Degree 


GET 


mdegree 


© 


15, 5 


SAY "Forleing " 


GET 


mforlang 


© 


16, 5 


SAY "Marstat " 


GET 


mmarstat 


© 


17, 5 


SAY "Children" 


GET 


mchildren 


© 


18, 5 


SAY "Address " 


GET 


maddress 


© 


19, 5 


SAY "Phone 


GET 


mphone 



READ 

* Replace old values with new values and put the record 

* back in the file 

REPLACE serno WITH mserno 
REPLACE name WITH mname 
REPLACE rank WITH mrank 
REPLACE unit WITH munit 
REPLACE serentry WITH mserentry 
REPLACE reptdate WITH mreptdate 
REPLACE duty WITH mduty 
REPLACE educat WITH meducat 
REPLACE degree WITH mdegree 
REPLACE forlang WITH mforlang 
REPLACE marstat WITH mmarstat 
REPLACE children WITH mchildren 
REPLACE address WITH maddress 
REPLACE phone WITH mphone 
STORE count +1 TO count 

ENDDO WHILE continue 
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)(c4f*****:t: PROGRAM MODIFY2 ******** 



* This program modifies records in UNITS file 
ERASE 

SELECT PRIMARY 

USE units INDEX units 

STORE ******* MODIFYING RECORDS IN UNITS FILE *****" TO tittle 
STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

STORE " TO mcode 

* Get the unit code 

@ 5,60 SAY DATEO 

@7,5 SAY tittle 

@ 10,5 SAY "Enter unit code" GET mcode PICTURE "9999" 

@ 12,5 SAY "Press ’ENTER' to exit" 

READ 

IF $(mcode,l,l) = 

USE 

* Update file TEMPOR and record the changes 

IF count <> 0 

SELECT SECONDARY 
USE temper 

REPLACE counter WITH count 
USE 

DO monitr 
ENDIF 
RETURN 
ENDIF 

* Look up UNITS file for the code 

FIND &mcode 
IF »=0 

? CHR(7) 

@ 22,10 SAY "The record does not exist, try eigain" 

SET TALK OFF 
STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
LOOP 
ENDIF 

* Store current field values to temporary memory variables 

STORE title TO mtitle 
STORE location TO mlocation 
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* Display the record and get the new field values 



ERASE 

@ 3,60 SAY DATEO 

@ 5,5 SAY tittle 

@8,5 SAY "Unit code = ”+mcode 

@ 10,5 SAY "Code " GET mcode 

@ 11, 5 SAY "Title " GET mtitle 

@ 12,5 SAY "Location " GET mlocation 

READ 



* Replace old values with new values and put the record 

* back in the file 

REPLACE code WITH mcode 
REPLACE title WITH mtitle 
REPLACE location WITH mlocation 
STORE count+1 TO count 
ENDDO WHILE continue 
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****)*:)♦:** PROGRAM MODIFY3 ******** 



* This program modifies records in RANKS file 
ERASE 

SELECT PRIMARY 

USE ranks INDEX rauiks 

STORE "***** MODIFYING RECORDS IN RANKS FILE *****" to TITLE 
STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

STORE •• •• TO mcode 

* Get the rank code 

@5,60 SAY DATEO 

@7,5 SAY title 

@ 10,5 SAY "Enter rank code" GET mcode PICTURE "99" 

@ 12,5 SAY "Press ’ENTER' to exit" 

READ 

IF $( mcode, 1,1) = " " 

USE 

* Monitor changes 



IF count <> 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 



* Search RANKS file for the code 



FIND &mcode 
IF #=0 

? CHR(7) 

@ 22, 10 SAY "The record does not exist, try again" 
SET TALK OFF 
STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
LOOP 
END IF 



* Store current field values to temporary memory variables 



STORE armyname TO marmyname 
STORE navyname TO mnavyname 
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* Display the record and get the new values 



ERASE 
@ 3,60 
@ 5,5 
@ 10,5 
@ 12,5 
@ 13,5 
@ 14 , 5 
READ 



SAY DATEO 
SAY title 
SAY "Rank code 
SAY "Code 
SAY "Armyneune" 
SAY "Navyname" 



= "+mcode 
GET mcode 
GET marmyname 
GET mnavyname 



* Replace old values with new values and put the record 

* back in the file 



REPLACE code WITH mcode 
REPLACE armyname WITH marmyname 
REPLACE navyname WITH mnavyname 
STORE count +1 TO count 
ENDDO WHILE continue 
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**;*£;♦:*** PROGRAM MODIFY4 *****Hct:* 



* This program modifies records in DUTIES file 
ERASE 

SELECT PRIMARY 

USE duties INDEX duties 

STORE •‘*^*** MODIFYING RECORDS IN DUTIES FILE *****" TO title 
STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

STORE " ” TO mcode 

* Get the duty code 

@ 5, 60 SAY DATE( ) 

@7,5 SAY title 

@ 10,5 SAY "Enter duty code" GET mcode PICTURE "99" 

@ 12,5 SAY "Press 'ENTER' to exit" 

READ 

IF $(mcode, 1,1) = 

USE 

* Monitor changes 

IF count <> 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 
USE 

DO monitr 
ENDIF 
RETURN 
ENDIF 

* Search DUTIES file for the code 

FIND &mcode 
IF <*=0 

? CHR(7) 

@ 22, 10 SAY "The record does not exist, try again" 

SET TALK OFF 
STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
LOOP 
ENDIF 

* Store current field values to temporary memory variables 
STORE name TO mname 
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* Displso^ the record aind get the new field values 
ERASE 

@ 3,60 SAY DATEO 

@ 4, 5 SAY title 

@7,5 SAY "Duty code = "+mcode 

@ 9,5 SAY "code " GET mcode 

@ 10, 5 SAY "name " GET mname 

READ 

* Replace old values with new values and put the record 

* back in the file 

REPLACE code WITH mcode 
REPLACE name WITH mname 
STORE count+1 TO count 
ENDDO WHILE continue 
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PROGRAM MODIFY5 ***>|oX*** 



* This program modifies records in FORLANGS file 
ERASE 

SELECT PRIMARY 

USE forlangs INDEX forlangs 

STORE •'***** MODIFYING RECORDS IN FORLANGS FILE *****” TO title 
STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

STORE ■' " TO mcode 

* Get the foreign language code 

@5,60 SAY DATEO 
@7,5 SAY title 

@ 10,5 SAY "Enter language code" GET mcode PICTURE "99" 

@ 12,5 SAY "Press ’ENTER’ to exit" 

READ 

IF ${ mcode, 1,1) = " " 

USE 

* Monitor changes 

IF count <> 0 

SELECT SECONDARY 
USE tempor 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 

* Search FORLANGS file for the code 

FIND &mcode 
IF #=0 

? CHR{7) 

@ 22, 10 SAY "The record does not exist, try aigain" 

SET TALK OFF 
STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
LOOP 
END IF 

* Store current field values to temporary memory variables 
STORE name TO mname 
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* Display the record and get the new field values 



ERASE 

@3,60 SAY DATEO 
@ 4, 5 SAY title 

@ 7,5 SAY “Code number = "+mcode 

@ 9,5 SAY “code “ GET mcode 

@ 10, 5 SAY “name “ GET mname 

READ 



* Replace old values with new values and put the record 

* back in the file 



REPLACE code WITH mcode 
REPLACE neime WITH mname 
STORE count+1 TO count 
ENDDO WHILE continue 
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****:♦:*:♦:* PROGRAM MODIFY6 ******** 



* This program modifies records in SCIENCES file 
ERASE 

SELECT PRIMARY 

USE sciences INDEX sciences 

STORE "***** MODIFYING RECORDS IN SCIENCES FILE ***** " TO title 
STORE 0 TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 

STORE " " TO mcode 

* Get the science code 

@6,60 SAY DATEO 
@7,5 SAY title 

@ 10,6 SAY "Enter code number" GET mcode PICTURE "99" 

@ 12,5 SAY "Press 'ENTER’ to exit" 

READ 

IF $(mcode,l,l) = " " 

USE 

* Monitor changes 

IF count <> 0 

SELECT SECONDARY 
USE tempo r 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
END IF 

* Search SCIENCES file for the code 

FIND &mcode 
IF n=o 

? CHR(7) 

@ 22, 10 SAY "The record does not exist, try again" 

SET TALK OFF 
STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
LOOP 
ENDIF 

* Store current field values to temporary memory variables 
STORE name TO raname 
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*■ Display the record and get the new field values 



ERASE 

@ 3,60 SAY DATEO 
@4,5 SAY title 

@ 7,5 SAY "Code number = "+mcode 
@ 9,5 SAY "code " GET mcode 
@ 10, 5 SAY "name " GET mname 
READ 

* Replace old values with new values and put the record 

* back in the file 

REPLACE code WITH mcode 
REPLACE name WITH mname 
STORE count +1 TO count 
ENDDO WHILE continue 
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C . REPORT GENERATORS 

These programs permit the user to print all the neces- 
sary reports which must be available to the Commander, in 
order to help him in his decision making. The documentation, 
listing, and output of each program is as follows: 

1 . Program Reportl 

This program prints all the officers in alphabetical 
order including name, serial number, rank, the unit he 
belongs, and the report date. 

The program uses the following structure: 

a. The necessary memory variables are initialized 
and the heading of the report is printed. 

b. The MASTER file is opened, and is sorted on the 
key 'name' to the temporary file TEMP, in ascending order. 

c. The program uses the sorted file TEMP, and exe- 
cutes a WHILE loop to process each record of the file. 

Within the WHILE loop the program performs the following: 

(1) Stores the appropriate field values to the 
corresponding memory variables. 

(2) Searches RANKS and UNITS files and retrieves 
the appropriate rank name and the title of the unit. 

(3) The main line of the output is printed. 

This line includes the data concerning the officer whose 
record is being processed. A line counter is kept to control 
the paging of the output. 
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d. The program continues with the next record 
until the end of file (EOF) is encountered. 

e. The file TEMP is deleted, and the MONITOR file 
is updated. 

The program listing and output is shown in the next 

pages . 
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*)(c***;<c** PROGRAM REPORTl ******** 

* This program prints all the officers in alphabetical order 

* including nname, serial number, rank, the unit he belongs 

* and the report date 

ERASE 



* Initialize memory variables 

STORE "LIST OF OFFICERS IN ALPHABETICAL ORDER" TO tittle 
STORE ”======================================" TO underline 

STORE 1 TO seqnum 
STORE 0 TO linecount 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 



TO pnaime 

" TO pserno 

" TO preptdate 
" TO rankname 

" TO ptitle 

TO mrank 
" TO munit 



SET PRINT ON 
* Print the heading 



"+DATE( ) 



<? 

?? ■■ 

«p 

?? " 

<? 

<? 

<? 

<? 

«p«p •' 

<p 

?? "UNIT 
<? " 

«p«p •' •’ 

STORE linecount+9 TO linecount 
SELECT PRIMARY 
USE master 



"+tittle 
"+underl ine 



; SEQ# I 



NAME 



SERL#! RANK 



! REPTDATE ! 



* Sort MASTER file in alphabetical order of the officers’ 

* names into the temporary file TEMP, aind use this file 

* for the database processing 

SORT ON name TO temp ASCENDING 
USE temp 

DO WHILE .NOT. EOF 

STORE name TO pname 
STORE serno TO pserno 
STORE reptdate TO preptdate 
STORE rank TO mrank 
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STORE unit TO munit 

*■ Search RANKS file with key the field 'rank' of the 

* officer's records and get the appropriate rank name. 

SELECT SECONDARY 
USE ranks INDEX ranks 
FIND &mrank 
IF $(p.unit, 1, 1) = "I" 

STORE armyname TO rankname 
ELSE 

STORE navyname TO rankname 
END IF 

* Find the unit the officer belongs, and get the title 

* of the unit 



USE units INDEX units 

FIND &munit 

STORE title TO ptitle 

If the line counter exceeds 53, continue in the next page. 



IF linecount > 53 
EJECT 

STORE 0 TO linecount 
END IF 



* Print the data concerning the officer 



?? ” 

9 

cpc? •• I 
<pcp .. I 

?? " I 

cpcp I 
?? '■ ! 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 



••II II 

II II 

I I •• 

I I 

" I " +STR( seqnum, 3) 

"+pname 

"+pserno 

"+rankname 

"+ptitle 

"+$(preptdate, 1, 2)+'V"+$(preptdate, 3, 2)+"/” ; 

+$( preptdate, 5, 2 ) +" I" 
seqnum+1 TO seqnum 
linecount+2 TO linecount 
" " TO pname 

" " TO pserno 

" " TO rankname 

" TO ptitle 

" " TO preptdate 

" " TO mrank 

" " TO munit 



I •• 
I 



* Continue with the next record 



SELECT PRIMARY 
SKIP 

ENDDO WHILE .NOT. EOF 
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*■ Update MONITOR file, delete file TEMP and return 



DO monitr 

DELETE FILE temp. DBF 
RETURN 
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12/01/85 



LIST OF OFFICERS IN ALPHABETICAL ORDER 



! SEQ# ! N A 


M E 




SERLtf 


RANK 1 


1 u 


NIT 


REPTDATE 1 


! 1 


Adams 


Garry 


J 


1030 


CPT 


2nd 


Inf Bn 


1 

09/20/84 ! 

1 


i 2 


Alkaimo 


Jim 


P 


1097 


LTJG 


LST 


Argo 


07/20/83 ! 

1 


! 3 


Allen 


David 


E 


1029 


CPT 


2nd 


Inf Bn 


09/16/83 i 
1 


! 4 


Boris 


Peter 


H 


1084 


LT 


DD Miaoulis 


07/16/84 ! 

1 


! 5 


Borrias 


Nick 


L 


1083 


LT 


LST 


Rhodes 


07/06/84 ! 

1 


! 6 


Brown 


Peter 


R 


1028 


CPT 


1st 


Inf Bn 


09/16/83 ! 

1 


i 7 


Bruce 


Mark 


P 


1027 


CPT 


1st 


Inf Bn 


08/15/84 

1 


! 8 


Byron 


Larry 


M 


1026 


CPT 


1st 


Inf Bn 


08/21/84 ! 

J 


! 9 


Clark 


Tom 


L 


1025 


MAJ 


Signals Bn 


07/22/83 ! 

1 


I 10 


Cook 


Ryan 


K 


1023 


MAJ 


Armour Bn 


07/21/84 ! 

1 


! 11 


Crosby 


Jerry 


J 


1022 


MAJ 


1st 


Arty Bn 


07/20/83 ! 

1 


I 12 


Dalton 


John 


E 


1021 


MAJ 


4th 


Inf Bn 


07/20/83 i 
1 


! 13 


Denton 


Mark 


S 


1096 


LTJG 


LST 


Argo 


07/19/84 ! 

1 


! 14 


Dorey 


Jim 


H 


1019 


MAJ 


2nd 


Inf Bn 


07/20/84 ! 

1 


i 15 


Durran 


Frank 


M 


1020 


MAJ 


3rd 


Inf Bn 


07/20/84 i 
1 


! 16 


Emery 


Roy 


J 


1018 


MAJ 


1st 


Inf Bn 


07/18/83 ! 

1 


! 17 


Evans 


Isaac 


M 


1065 


ILT 


2nd 


Arty Bn 


07/16/83 ! 

1 


! 18 


Evains 


Tom 


M 


1064 


ILT 


1st 


Arty Bn 


07/15/83 ! 

1 


! 19 


Farmer 


Peter 


J 


1063 


ILT 


5 th 


Inf Bn 


07/13/84 ! 

1 


! 20 


Faser 


Gas 


L 


1062 


ILT 


4 th 


Inf Bn 


07/12/83 ! 

1 


! 21 


Felton 


John 


K 


1061 


ILT 


3rd 


Inf Bn 


07/10/84 I 
1 


! 22 


Foley 


Mark 


L 


1060 


ILT 


2nd 


Inf Bn 


07/13/83 ! 

1 

1 
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23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 



Ford 


Roger 


A 


1057 


CPT 


Sup/Trans Bn 


07/28/84 


Foster 


Kliff 


J 


1058 


CPT 


Sup/Trans Bn 


07/29/83 


Fox 


Don 


E 


1099 


LTJG 


LST Rhodes 


07/22/84 


Frank 


Paul 


K 


1059 


ILT 


1st Inf Bn 


07/30/84 


Franko 


Jess 


L 


1098 


LTJG 


LST Rhodes 


07/21/83 


Freeman 


Jim 


E 


1056 


CPT 


Sup/Trans Bn 


07/27/83 


Ganos 


J im 


A 


1085 


LT 


DD Miaoulis 


07/10/84 


Garret 


Rex 


D 


1055 


CPT 


Signals Bn 


07/26/83 


Gilman 


Perry 


M 


1054 


CPT 


Signals Bn 


07/25/84 


Good 


John 


L 


1053 


CPT 


Signals Bn 


07/24/84 


Gorby 


Glen 


G 


1051 


CPT 


Engineers Bn 


07/22/84 


Gordon 


Jerry 


W 


1052 


CPT 


Engineers Bn 


07/23/83 


Gormain 


Bruce 


L 


1095 


LTJG 


LST Argo 


07/19/83 


Hogan 


Joe 


K 


1032 


CPT 


3rd Inf Bn 


07/18/83 


Horan 


Kevin 


L 


1031 


CPT 


2nd Inf Bn 


09/20/84 


Ingals 


Tomas 


R 


1035 


CPT 


4th Inf Bn 


08/15/84 


Jacks on 


Peter 


M 


1033 


CPT 


3rd Inf Bn 


07/20/84 


Jensen 


Ron 


P 


1034 


CPT 


3rd Inf Bn 


07/20/84 


Jones 


Peter 


L 


1100 


LTJG 


LST Rhodes 


07/23/83 


Kaan 


Dave 


J 


1001 


MG 


1st Inf Div 


07/20/84 


Karaenos 


Joe 


M 


1089 


LT 


DD kanaris 


07/14/83 


Kane 


Bob 


R 


1002 


BG 


1st Inf Div 


07/25/84 


Karras 


Mike 


L 


1005 


LTC 


1st Inf Div 


07/25/84 


Keen 


Robt 


N 


1003 


COL 


1st Inf Div 


08/26/83 


King 


Lewis 


M 


1007 


LTC 


1st Inf Bn 


07/20/84 


Kirk 


Burt 


N 


1006 


LTC 


1st Inf Div 


08/22/83 


Kliff 


Frank 


E 


1024 


MAJ 


Engineers Bn 


07/21/84 
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50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 



Kontos 


David 


K 


1088 


LT 


DD keinaris 


07/13/83 


Koom 


Peter 


H 


1004 


LTC 


1st Inf Div 


08/24/84 


Kueny 


John 


S 


1008 


LTC 


2nd Inf Bn 


07/20/84 


Larsen 


Allen 


A 


1050 


CPT 


Engineers Bn 


07/21/83 


Larson 


Roger 


K 


1049 


CPT 


Armour Bn 


07/20/84 


Layton 


John 


E 


1048 


CPT 


Armour Bn 


07/19/83 


Lemos 


Tim 


N 


1090 


LT 


DD kainaris 


07/14/82 


Lopez 


Tom 


L 


1047 


CPT 


Armour Bn 


07/13/84 


Manos 


John 


K 


1043 


CPT 


1st Arty Bn 


07/07/84 


Moore 


Roger 


L 


1044 


CPT 


2nd Arty Bn 


07/06/83 


Morris 


Roy 


K 


1046 


CPT 


2nd Arty Bn 


07/13/83 


Morton 


Briain 


C 


1045 


CPT 


2nd Arty Bn 


07/11/84 


Newmain 


Ben 


K 


1066 


ILT 


Armour Bn 


07/17/84 


Newton 


John 


J 


1067 


ILT 


Engineers Bn 


07/18/83 


Norton 


Denis 


E 


1068 


ILT 


Signals Bn 


07/10/84 


Ocasio 


J im 


E 


1071 


COMD 


Navy Command 


07/10/84 


Odello 


Bruno 


A 


1072 


CAPT 


DD Squadron 


07/20/84 


Olsen 


Joe 


N 


1070 


LTC 


1st Inf Div 


07/12/82 


Onas is 


George 


E 


1091 


LTJG 


DD kanaris 


07/15/82 


Oscar 


Tom 


K 


1094 


LTJG 


DD Themis 


07/18/83 


Owens 


Bill 


L 


1069 


ILT 


Sup/Trans Bn 


07/11/83 


Palmer 


Bob 


L 


1011 


LTC 


5th Inf Bn 


07/21/83 


Pappas 


Nick 


C 


1092 


LTJG 


DD Themis 


07/16/82 


Patton 


Mike 


H 


1012 


LTC 


1st Arty Bn 


07/22/83 


Perry 


Bill 


H 


1013 


LTC 


2nd Arty Bn 


07/20/84 


Peters 


Mark 


J 


1009 


LTC 


3rd Inf Bn 


07/18/83 


Peters 


Nick 


K 


1010 


LTC 


4th Inf Bn 


07/19/84 



105 



77 


Potter 


Tom 


E 


1073 


CAPT 


LST Squadron 


07/19/84 


78 


Quill 


Kelvin 


J 


1075 


CDR 


DD kainaris 


07/19/83 


79 


Quinn 


Peter 


C 


1074 


CDR 


DD Miaoulis 


07/12/83 


80 


Rigas 


Ben 


H 


1093 


LTJG 


DD Themis 


07/17/83 


81 


Rivera 


Mario 


L 


1079 


LCDR 


DD Miaoulis 


07/17/84 


82 


Roberts 


Ben 


J 


1077 


CDR 


LST Argo 


07/19/83 


83 


Rodes 


James 


K 


1078 


CDR 


LST Rhodes 


07/22/84 


84 


Rokos 


Nick 


A 


1076 


CDR 


DD Themis 


07/18/84 


85 


Ross 


A1 lam 


J 


1080 


LCDR 


DD kanaris 


07/25/84 


86 


Sainders 


James 


F 


1014 


LTC 


Armour Bn 


07/20/84 


87 


Scott 


Paul 


V 


1015 


LTC 


Engineers Bn 


08/15/83 


88 


Spencer 


Tim 


M 


1081 


LCDR 


DD Themis 


07/08/84 


89 


Stanley 


Gris 


K 


1082 


LCDR 


LST Argo 


07/09/83 


90 


Takas 


Costas 


L 


1086 


LT 


DD Miaoulis 


07/11/84 


91 


Torres 


Alex 


A 


1017 


LTC 


Sup/Trains Bn 


07/10/84 


92 


Turner 


Carlos 


B 


1016 


LTC 


Signals Bn 


08/15/83 


93 


Oilman 


Rolf 


G 


1041 


CPT 


1st Arty Bn 


07/03/83 


94 


Ulrey 


Dan 


A 


1042 


CPT 


1st Arty Bn 


07/06/84 


95 


Victor 


David 


R 


1039 


CPT 


5th Inf Bn 


07/20/83 


96 


Vongel 


Mark 


E 


1040 


CPT 


5th Inf Bn 


07/15/83 


97 


Warren 


Geo 


M 


1036 


CPT 


4th Inf Bn 


08/15/84 


98 


Waters 


Gary 


L 


1038 


CPT 


5th Inf Bn 


07/15/84 


99 


Watson 


Ralph 


D 


1037 


CPT 


4th Inf Bn 


07/20/83 


100 


Z ikas 


Tom 


J 


1087 


LT 


DD Miaoulis 


07/12/84 
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2 . Program Report2 



This program prints all the officers ordered by rank, 
and within the rank by unit, including name, unit, and duty. 

The structure of the program is as follows: 

a. The necessary memory variables are initialized 
and the main heading of the list is printed. 

b. We create a copy of the MASTER file into file 
TEMP, which includes only the fields necessary to obtain the 
output . 

c. Since dBASE II cannot sort a file on more than 
one key at the same time, we do two consecutive sorts. The 
first one is done on the minor key 'unit', and the second one 
on the major key 'rank'. For the purpose of these sorts we 
use the temporary files TEMPI and TEMP2 besides TEMP. 

d. Using the file TEMP2 which is double sorted on 
the desired keys, the program performs a WHILE loop to process 
this file, with the following major functions: 

(1) The field "rank" and the first character 
of the unit code are compared to the memory variables 'mrank' 
and 'funit' respectively. If either comparison yields a 
'false' value this means that an officer of the different 
rank or different service has been encountered. The value 
of the field 'rank', and the first character of the unit 
code, are stored to the above memory variables, in order to 
be ready for the next comparison. Then the heading of the 
new rank is printed. 
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(2) The current field values are stored to the 
corresponding memory variables. 

(3) The appropriate unit title, and duty name 
are retrieved from the files UNITS and DUTIES respectively. 

(4) The main line of the output is printed, and 
the program proceeds to the next record. 

e. The MONITOR file is updated, all the temporary 
files are deleted, and then the program returns to SUBMENU2. 

The listing and output of the program are shown in 
the next pages. 
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******** PROGRAM REPORT2 ******** 



* This program prints all the officers ordered by rsink 

* and unit number including name, unit and duty. 

ERASE 

* Initialize memory variables 



STORE 0 TO linecount 

STORE " ■' TO pname 

STORE " " TO fun it 

STORE " TO mrank 

STORE " ■' TO munit 

STORE " " TO punit 

STORE " "TO mduty 

STORE " “ TO pduty 

STORE T TO maintitle 

STORE •■==============================—========" TO linel 

STORE "======================" TO line2 



^ ^ ^ ^ ^ w - -- 

^ p T. ”t ^F ^F ^F ^F ^F ^F ^ ^ ^ ^3 

STORE "**********************" TO line4 



LIST OF OFFICERS ORDERED BY RANK" 



NAME I UNIT ! 

? Iine3+line4 

STORE linecount+8 TO linecount 

* Create a copy of the MASTER file into TEMP including only 

* the appropriate fields and sort TEMP file on the minor key 

* 'unit' first into TEMPI and then use TEMPI to sort the file 
*■ on the major key ' rank' into TEMP2 

SELECT PRIMARY 
USE master 

COPY TO temp FIELD serno, name, rank, unit, duty 
USE temp 

SORT ON unit TO tempi 
USE tempi 

SORT ON rank TO temp2 
USE temp 2 

DO WHILE .NOT. EOF 



* Print the heading 

SET PRINT ON 
? 

?? ■• "+DATEO 

? 

<?<? •• •• 

? 

? 

<? 

? Iine3+line4 
? "*SEQ*t! 

?? "DUTY *" 



109 



* If a new rank or an officer of a different service 

* is encountered print the rank heading 



IF rank <> mrank .OR. $(unit, 1,1) <> funit 
STORE rank TO mrank 
STORE $(unit, 1,1) TO funit 
STORE 1 TO seqno 
STORE T TO flag 
<? 



STORE linecount+2 TO linecount 
IF linecount > 53 
EJECT 

STORE 0 TO linecount 



END IF 
DO CASE 

CASE raink = "01" 

IF $(unit, 1, 1) = 

? Iinel+line2 
? " 

? Iinel+line2 
ELSE 

? Iinel+line2 
? " 

? Iinel+line2 
ENDIF 

CASE rank = "02" 

IF $(unit, 1,1) = "1" 
? Iinel+line2 
? " 

? Iinel+line2 
ELSE 

? Iinel+line2 
? " 

? Iinel+line2 
ENDIF 

CASE rank = "03" 

IF $(unit,l,l) = "1" 
? Iinel+line2 
? " 

? Iinel+line2 
ELSE 

? Iinel+line2 
? " 

? Iinel+line2 
ENDIF 

CASE rank = "04" 

IF $(unit,l,l) = "1 

? Iinel+line2 
? " 

? Iinel+line2 
ELSE 

? Iinel+line2 
? " 



GENERALS 



ADMIRALS 



LT GENERALS 



VICE ADMIRAL S' 



MAJ GENERALS" 



REAR ADMIRAL S' 



BRIG GENERAL S' 



COMMODORES" 
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? Iinel+line2 
ENDIF 

CASE rank = "OS" 

IF $(unit, 1,1) = "I” 
? Iinel+line2 
? " 

? Iinel+line2 
ELSE 

? Iinel+line2 
? " 

? Iinel+line2 
ENDIF 

CASE rank = "06" 

IF $(unit,l,l) = "I" 
? Iinel+line2 
? " 

? Iinel+line2 
ELSE 

? Iinel+line2 
? ” 

? Iinel+line2 
ENDIF 

CASE rank = "07 " 

IF $(unit,l,l) = "1" 
? Iinel+line2 
? " 

? Iinel+line2 
ELSE 

? Iinel+line2 
? " 

? Iinel+line2 
ENDIF 

CASE rank = "08" 

IF $(unit, 1,1) = "1" 
? Iinel+line2 
? " 

? Iinel+line2 
ELSE 

? Iinel+line2 
? " 

? Iinel+line2 
ENDIF 

CASE rank = "09" 

? Iinel+line2 
? " 

? Iinel+line2 

CASE raink = "10" 

IF $(unit, 1,1) = "1" 
? Iinel+line2 
? " 

? Iinel+line2 
ELSE 

? Iinel+line2 
? " 



COLONELS" 

CAPTAINS" 

LT COLONELS" 
COMMANDERS" 

MAJORS" 

LT COMMANDERS" 

CAPTAINS" 

LIEUTENANTS" 

1st LIEU. TENANT S' 

2nd LIEUTENANT S' 
ENSIGNS" 
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? Iinel+line2 
ENDIF 
OTHERWISE 
ERASE 

STORE F TO flag 

? CHR(7) * 

© 10,10 SAY "ILLEGAL RANK CODE ENCOUNTERED IN RECORD" 
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© 12, 10 SAY " 

STORE 1 TO del 
DO WHILE del < 

STORE del+1 To del 
ENDDO WHILE 
ENDCASE 
IF flag 

STORE linecount+3 TO linecount 
ENDIF 
ENDIF 



WITH SERIAL NUMBER "+serno 



*■ Store field values to temporary memory variables 

STORE name TO pname 
STORE unit TO munit 
STORE duty TO mduty 
SELECT SECONDARY 
USE units INDEX units 

*■ Find and retrieve the unit title from UNITS file 



FIND &munit 
IF # <> 0 

STORE title TO punit 
ELSE 

ERASE 
? CHR(7) 

© 9,9 SAY "Record with key "+munit+" in UNITS file not found' 
STORE 1 TO del 
DO WHILE del < 50 

STORE del+1 TO del 
ENDDO WHILE 
ENDIF 



*■ Find and retrieve the duty name from DUTIES file 

USE duties INDEX duties 
FIND &mduty 
IF # <> 0 

STORE name TO pduty 
ELSE 
ERASE 
? CHR(7) 

©9,9 SAY "Record with key "+raduty+" in DUTIES file not found' 
STORE 1 TO del 
DO WHILE del < 50 

STORE del+1 TO del 
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ENDDO WHILE 
END IF 

* Print the main line 

IF linecount > 53 
EJECT 

STORE 0 TO linecount 
END IF 

? "11 1 

?? 1 " 

? " j "+STR(seqno, 3 ) 

?? "1 "+pname 
?? "j "+punit 
?? " j "+pduty+"l" 

STORE linecount+2 TO linecount 
STORE seqno+1 TO seqno 

* Continue with the next record 

SELECT PRIMARY 
SKIP 

ENDDO WHILE .NOT. EOF 

* Update the MONITOR file and delete the temporary files 
DO monitr 

DELETE FILE temp. DBF 
DELETE FILE tempi. DBF 
DELETE FILE temp2.DBF 
RETURN 
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12/01/85 



LIST OF OFFICERS ORDERED BY RANK 



*SEQ#! NAME ! UNIT ! DUTY 






M A 


J 


GENERALS 




1 

1 

I 1 


Kaan 


Dave 


J 


1 

1 1 
! 1st Inf Div i 


1 

1 

1 Commander 


1 

1 






B R 


I G 


GENERAL 


S 




1 

1 

1 1 

1 J- 


Kane 


Bob 


R 


1 1 

i 1 

! 1st Inf Div i 


1 1 

1 1 

1 Dty Commander 1 






C 


0 M 


M 0 D 0 R E S 






1 1 

1 1 

1 J- 1 


1 Ocasio 


Jim 


E 


1 

1 1 
I Navy Command i 


1 

1 

1 Commander 


1 

1 

1 

1 








C 0 


L 0 N E L S 






1 1 
1 1 

I 1 1 


1 

1 

! Keen 


Robt 


N 


! 1st Inf Div 


1 1 

Chief of Staff I 








C A 


P T A I N S 






! 1 


Odello 


Bruno 


A 


1 

1 

I DD Squadron 
1 


Commander 


1 

1 

1 

1 

1 


I 2 


Potter 


Tom 


E 


1 

j LST Squadron 


Commander 


1 

1 

1 






L 


T 


COLONELS 




1 

1 

1 1 

1 


Koom 


Peter 


H 


1 

! 1st Inf Div 
1 


1st Office 


t 

1 

Manager I 
1 


1 

! 2 


Karras 


Mike 


L 


I 1st Inf Div 


2nd Office 


( 

Manager | 



114 



3 


Kirk 


Burt 


N 


1st 


Inf 


Div 


3rd Office 


Manager 


4 


Olsen 


Joe 


N 


1st 


Inf 


Div 


4th Office 


Manager 


5 


King 


Lewis 


M 


1st 


Inf 


Bn 


Commander 




6 


Kueny 


John 


S 


2nd 


Inf 


Bn 


Commander 




7 


Peters 


Mark 


J 


3rd 


Inf 


Bn 


Commander 




8 


Peters 


Nick 


K 


4th 


Inf 


Bn 


Commander 




9 


Palmer 


Bob 


L 


5th 


Inf 


Bn 


Commander 




10 


Patton 


Mike 


H 


1st 


Arty Bn 


Commander 




11 


Perry 


Bill 


H 


2nd 


Arty Bn 


Commander 




12 


Sanders 


James 


F 


Armour Bn 


Commander 




13 


Scott 


Paul 


V 


Engineers Bn 


Commander 




14 


Turner 


Carlos 


B 


Signals 


Bn 


Commander 




15 


Torres 


Alex 


A 


■ Sup/Trajis Bn 


Commander 





COMMANDERS 



1 1 


Quinn 


Peter 


C 


DD Miaoulis 


Commanding 


1 

1 

Officer I 
1 


! 2 


Quill 


Kelvin 


J 


DD kanaris 


Commanding 


Officer ! 

1 


! 3 


Rokos 


Nick 


A 


DD Themis 


Commanding 


Officer 1 
1 


! 4 


Roberts 


Ben 


J 


LST Argo 


Commanding 


1 

Officer 1 
1 


'l 5 


Rodes 


James 


K 


LST Rhodes 


Commanding 


1 

Officer 



MAJORS 



! 1 


Emery Roy J 


1 

1st Inf Bn 


1 1 

1 1 

Dty Commander | 

1 


! 2 


Dorey Jim H 


2nd Inf Bn 


1 

Dty Commander ! 

1 


! 3 


Durran Frank M 


3rd Inf Bn 


1 

Dty Commander I 

1 


1 4 


Dalton John E 


4th Inf Bn 


1 

Dty Commander I 
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5 


Crosby 


Jerry 


J 


1st Arty Bn 


Dty 


Commander 


6 


Cook 


Ryan 


K 


Armour Bn 


Dty 


Commander 


7 


Kliff 


Freink 


E 


Engineers Bn 


Dty 


Commander 


8 


Clark 


Tom 


L 


Signals Bn 


Dty 


Commander 







L T 


C 


0 M M A N 


[ D E R S 




1 

1 

j 1 
1 


Rivera 


Mario 


L 


DD Miaoulis 


1 

1 

Executive Officer 1 

1 


1 

! 2 
1 


Ross 


Allan 


J 


DD ; 


keinaris 


1 

Executive Officer j 

1 


1 

1 3 
1 


Spencer 


Tim 


M 


DD ' 


Themis 


\ 

Executive Officer | 

1 


1 

1 4 


Stanley 


Cris 


K 


LST 


Argo 


1 

Executive Officer 








C 


A P 


T A I 


: N S 






1 

1 

! 1 
1 


Byron 


Larry 


M 


1st 


Inf 


Bn 


Company 


1 

1 

Commander 1 

1 


1 

! 2 
1 


Bruce 


Mark 


P 


1st 


Inf 


Bn 


Company 


1 

Commander 1 

) 


! 3 
1 


Brown 


Peter 


R 


1st 


Inf 


Bn 


Company 


1 

Commander I 

1 


t 

1 4 
1 


A1 len 


David 


E 


2nd 


Inf 


Bn 


Company 


1 

Commander 1 

1 


1 

1 5 
1 


Adams 


Garry 


J 


2nd 


Inf 


Bn 


Company 


1 

Commander I 

1 


! 6 
1 


Horan 


Kevin 


L 


2nd 


Inf 


Bn 


Company 


1 

Commander j 

1 


1 

1 7 
1 


Hogan 


Joe 


K 


3rd 


Inf 


Bn 


Company 


1 

Commander 1 

1 


! 8 
1 


Jackson 


Peter 


M 


3rd 


Inf 


Bn 


Company 


1 

Commander 1 

1 


l' 9 
1 


Jensen 


Ron 


P 


3rd 


Inf 


Bn 


Company 


1 

Commander 1 

( 


! 10 
1 


Ingals 


Tomas 


R 


4 th 


Inf 


Bn 


Company 


1 

Commander | 

1 


I 11 
1 


Warren 


Geo 


M 


4th 


Inf 


Bn 


Company 


1 

Commander 1 

1 


! 12 
1 


Watson 


Ralph 


D 


4th 


Inf 


Bn 


Company 


1 

Commander ! 

1 


! 13 
1 


Waters 


Gary 


L 


5th 


Inf 


Bn 


Company 


1 

Commander I 

1 


! 14 


Victor 


David 


R 


5 th 


Inf 


Bn 


Company 


1 

Commander I 
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15 


Vongel 


Mark 


E 


5th Inf Bn 


Company 


Commander 


16 


Ullmein 


Rolf 


G 


1st Arty Bn 


Battery 


Commander 


17 


Ulrey 


Dam 


A 


1st Arty Bn 


Battery 


Commander 


18 


Memos 


John 


K 


1st Arty Bn 


Battery 


Commander 


19 


Moore 


Roger 


L 


2nd Arty Bn 


Battery 


Commander 


20 


Morton 


Brian 


C 


2nd Arty Bn 


Battery 


Commander 


21 


Morris 


Roy 


K 


2nd Arty Bn 


Battery 


Commander 


22 


Lopes 


Tom 


L 


Armour Bn 


Company 


Commander 


23 


Layton 


John 


E 


Armour Bn 


Company 


Commander 


24 


Larson 


Roger 


K 


Armour Bn 


Company 


Commander 


25 


Larsen 


Allen 


A 


Engineers Bn 


Company 


Commander 


26 


Gorby 


Glen 


G 


Engineers Bn 


Company 


Commander 


27 


Gordon 


Jerry 


W 


Engineers Bn 


Company 


Commander 


28 


Good 


John 


L 


Signals Bn 


Company 


Commander 


29 


Gilman 


Perry 


M 


Signals Bn 


Company 


Commander 


30 


Garret 


Rex 


D 


Signals Bn 


Company 


Commander 


31 


Freeman 


Jim 


E 


Sup/Trans Bn 


Company 


Commander 


32 


Ford 


Roger 


A 


Sup/Trans Bn 


Compamy 


Commander 


33 


Foster 


Kliff 


J 


Sup/Trsins Bn 


Company 


Commander 



LIEUTENANTS 



! 1 


Boris 


Peter 


H 


DD 


Miaoulis 


1 

ASW Officer 1 

» 


! 2 


Ganos 


Jim 


A 


DD 


Miaoulis 


1 

Navigation Officer 1 

1 


! 3 


Takas 


Costas 


L 


DD 


Miaoulis 


\ 

Commun/tion Officer 1 

1 


I 4 


Zikas 


Tom 


J 


DD 


Miaoulis 


CIC Officer I 

1 


! 5 


Kontos 


David 


K 


DD 


kanaris 


ASW Officer i 

1 
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1 6 
1 


Kamenos Joe M 


DD kanaris 


Navigation Officer | 

1 


1 

1 7 
1 


Lemos Tim N 


DD kanaris 


1 

Commun/tion Officer 1 

1 


!' 8 


Borrias Nick L 


LST Rhodes 


1 

Executive Officer j 




1st L 


lEUTENANTS 


i 1 


Frank Paul K 


1st Inf Bn 


1 

1 

Adjutant I 

1 


1 2 


Foley Mark L 


2nd Inf Bn 


1 

Adjutant | 

1 


i 3 


Felton John K 


3rd Inf Bn 


1 

Adjutant 1 

1 


i 4 


Faser Gas L 


4th Inf Bn 


1 

Adjutant 1 

1 


! 5 


Farmer Peter J 


5th Inf Bn 


1 

Adjutant I 

1 


! 6 


Evans Tom M 


1st Arty Bn 


1 

Adjutant 1 

1 


! 7 


Evans Isaac M 


2nd Arty Bn 


1 

Adjutant 1 

1 


I 8 


Newman Ben K 


Armour Bn 


1 

Adjutant I 

1 


i 9 


Newton John J 


Engineers Bn 


1 

Adjutant 1 

1 


i 10 


Norton Denis E 


Signals Bn 


1 

Adjutant [ 

1 


1 11 


Owens Bill L 


Sup/Trans Bn 


1 

Adjutant 1 




1st L 


lEUTENANTS 


i 1 


Onasis George E 


DD kanaris 


1 

CIO Officer ! 

1 


! 2 


Pappas Nick C 


DD Themis 


1 

ASW Officer 1 

1 


! 3 


Rigas Ben H 


DD Themis 


1 

Commun/tion Officer 1 

1 


!' 4 


Oscar Tom K 


DD Themis 


CIC Officer 1 

\ 


! 5 


Gorman Bruce L 


LST Argo 


1 

Navigation Officer I 

1 


! 6 


Denton Mark S 


LST Argo 


i 

Commun/tion Officer 1 

1 


! 7 


Alkamo Jim P 


LST Argo 


CIC Officer ! 

1 


! 8 


Franko Jess L 


LST Rhodes 


1 

Navigation Officer I 

1 
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! 9 


Fox 


Don 


E 


LST 


Rhodes 


1 Commun/tion Officer | 
1 \ 


! 10 


Jones 


Peter 


L 


LST 


Rhodes 


1 CIC Officer j 
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3 . Program Reports 



This program prints all the units and the officers 
who belong to a particular unit, including name, rank, and 
duty. 

The structure of the program is as follows: 

a. The necessary memory variables are initialized 
and the headlines are printed. 

b. A copy of the MASTER file is created which in- 
cludes the fields, serial number, name, rank, unit, and duty. 
This file then is sorted by unit, and within the unit by rank. 

c. The above finally sorted file, is processed 
sequentially within a WHILE loop, whose function is the 
following : 

(1) The field 'unit' is compared to the field 
'unit' of the previous record. If they are not equal, this 
means that a new unit has been encountered. Then the program 
prints the title and location of the unit. 

(2) The rank and duty names are retrieved from 
the corresponding files, and the main line of the output 

is printed. 

(3) The program proceeds with the next record. 

d. Before the program returns, it updates the MONITOR 
file, and deletes the temporary files. 

The listings and the output of the program are shown 
in the next pages. 
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PROGRAM REPORTS ******** 



* This program prints all the units with their 

* officers, including neime, rank, and duty 

ERASE 

* Initialize memory variables 



STORE 0 TO linecount 

STORE " " TO pname 

STORE " " TO mrank 

STORE " TO prank 

STORE " ■■ TO mduty 

STORE " " TO pduty 

STORE " " TO munit 

STORE " " TO pun it 

STORE " " TO plocat 

STORE 1 TO seqnum 

STORE ‘'*********************************" TO linel 

STORE "************************" TO line2 

STORE "========================================■• TO lines 



* Print the heading 

SET PRINT ON 
? 

?? DATEO 
? 

•• 

? 

? 

P 

? Iinel+line2 
? ■•*SEQ*»! 

?? " DUTY 

? Iinel+line2 

STORE linecount+8 TO linecount 

* Create a copy of the MASTER file into TEMP including 

* only the necessary fields and sort TEMP file on 

* ascending keys 'unit’ and 'rank' 

SELECT PRIMARY 
USE master 

COPY TO temp FIELD serno, name, rank, unit, duty 
USE temp 

SORT ON rank TO tempi 
USE tempi 

SORT ON unit TO temp2 
USE temp2 

DO WHILE .NOT. EOF 



LIST OF UNITS WITH THEIR OFFICERS' 



NAME I RANK | " 

*•• 
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* If the current unit is different than the previous 

* one print the unit heading 



IF unit <> munit 

STORE unit TO munit 
STORE 1 TO seqnum 
IF linecount > 53 
EJECT 

STORE 0 TO linecount 
END IF 

STORE linecount+2 TO linecount 
IF linecount > 53 
EJECT 

STORE 0 TO linecount 
ENDIF 

SELECT SECONDARY 
USE units INDEX units 
FIND &munit 

? " "+line3 

? " UNIT; "+title+" LOCATION: 

? " "+line3 

STORE linecount+3 TO linecount 
ENDIF 

SELECT PRIMARY 

* Store current field values to memory variables 

STORE name TO pname 
STORE rank TO mrank 
STORE duty TO mduty 

* Retrieve reink and duty names 

SELECT SECONDARY 
USE ranks INDEX ranks 
FIND &mrank 
IF $(p. unit, 1, 1 ) = "1" 

STORE armyname TO prank 
ELSE 

STORE navyname TO prank 
ENDIF 

USE duties INDEX duties 

FIND &mduty 

STORE name TO pduty 

* Print the main line 

IF linecount > 53 
EJECT 

STORE 0 TO linecount 
ENDIF 

Cp . II , , , , I, 

* I » II 



" +location 
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?? " 1 ” 

? " I "+STR( seqnum, 3 ) 

?? "I "+pname 
?? " ! "+prank 
?? "1 "+pduty+" 1” 

STORE linecount+2 TO linecount 
STORE seqnum+1 TO seqnum 

* Continue with the next record 

SELECT PRIMARY 
SKIP 

ENDDO WHILE .NOT. EOF 

* Update the MONITOR file and delete 

* the temporary files 

DO monitr 

DELETE FILE temp. DBF 
DELETE FILE tempi. DBF 
DELETE FILE temp2 . DBF 
RETURN 
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12/01/85 





LIST OF UNITS 


WITH THEIR OFFICERS 




*SEQ#| NAME I RANK 1 DUTY * 




UNIT: 


1st Inf 


Div 


LOCATION: Salinas 




I 1 


Kaan 


Dave 


J 


MG 


Commander 


1 

1 

1 

1 

1 


! 2 


Kane 


Bob 


R 


BG 


Dty Commander 


1 

1 

1 

1 


! 3 


Keen 


Robt 


N 


COL 


Chief of Staff 


1 

1 

1 

1 


I 4 


Koom 


Peter 


H 


LTC 


1st Office Manager 


1 

1 

1 

1 


I 5 


Karras 


Mike 


L 


LTC 


2nd Office Manager 


1 

1 

1 

1 


! 6 


Kirk 


Burt 


N 


LTC 


3rd Office Manager 


I 

1 

1 

1 


! 7 


Olsen 


Joe 


N 


LTC 


4th Office Manager 


1 

1 

1 




UNIT: 


1st Inf 


Bn 


LOCATION: Monterey 




! 1 


King 


Lewis 


M 


LTC 


Commander 


1 

1 

1 

1 

1 


! 2 


Emery 


Roy 


J 


MAJ 


Dty Commander 


1 

1 

1 

1 


! 3 


Byron 


Larry 


M 


CPT 


Company Commander 


1 

1 

1 

1 


! 4 


Bruce 


Mark 


P 


CPT 


Company Commander 


1 

1 

1 

1 


! 5 


Brown 


Peter 


R 


CPT 


Company Commander 


1 

1 

1 

1 


1 ti 


Frank 


Paul 


K 


ILT 


Adjutant 


1 

1 

1 




UNIT: 


2nd Inf 


Bn 


LOCATION: Carmel 




1 1 


Kueny 


John 


S ! 


LTC ! 


Commander 


1 

1 

1 

1 

I 


! 2 


Dorey 


Jim 


H ! 


MAJ ! 


Dty Commander 


1 

1 

1 
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I 



3 


Allen 


David 


E 


CPT 


Company Commander 


4 


Adams 


Garry 


J 


CPT 


Company Commander 


5 


Horan 


Kevin 


L 


CPT 


Company Commander 


6 


Foley 


Mark 


L 


ILT 


Adjutant 




UNIT: 3rd Inf 


Bn 


LOCATION: Salinas 


1 


Peters 


Mark 


J 


LTC 


Commander 


2 


Durran 


Frank 


M 


MAJ 


Dty Commander 


3 


Hogan 


Joe 


K 


CPT 


Company Commander 


4 


Jackson 


Peter 


M 


CPT 


Company Commander 


5 


Jensen 


Ron 


P 


CPT 


Company Commander 


6 


Felton 


John 


K 


ILT 


Ad jutauit 




UNIT: 4th Inf 


Bn 


LOCATION: Seaside 


1 


Peters 


Nick 


K 


LTC 


Commander 


2 


Dalton 


John 


E 


MAJ 


Dty Commander 


3 


Ingals 


Tomas 


R 


CPT 


Company Commander 


4 


Warren 


Geo 


M 


CPT 


Company Commander 


5 


Watson 


Ralph 


D 


CPT 


Company Commander 


6 


Faser 


Gas 


L 


ILT 


Adjutant 




UNIT: 5th Inf 


Bn 


LOCATION: Pac Grove 


1 


Palmer 


Bob 


L 


LTC 


Commander 


2 


Waters 


Gary 


L 


CPT 


Company Commander 


3 


Victor 


David 


R 


CPT 


Company Commander 


4 


Vongel 


Mark 


E 


CPT 


Company Commander 
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5 

1 

2 

3 

4 

5 

6 

1 

2 

3 

4 

5 

1 

2 

3 

4 

5 

6 



i II I 

I II I 



Farmer 


Peter 


J 


! ILT 


I Adjutant j 


UNIT: 1st Arty 


Bn 


LOCATION: Monterey 


Patton 


Mike 


H 


LTC 


Commander 


Crosby 


Jerry 


J 


MAJ 


Dty Commander 


Ullman 


Rolf 


G 


CPT 


Battery Commander 


Ulrey 


Dan 


A 


CPT 


Battery Commander 


Manos 


John 


K 


CPT 


Battery Commander 


Evans 


Tom 


M 


ILT 


Adjutant 


UNIT: 2nd Arty 


Bn 


LOCATION: Santa Cruz 


Perry 


Bill 


H 


LTC 


Commander J 


Moore 


Roger 


L 


CPT 


Battery Commander 


Morton 


Brian 


C 


CPT 


Battery Commander I 


Morris 


Roy 


K 


CPT 


Battery Commander I 


Evans 


Isaac 


M 


ILT 


Adjutant 


UNIT: Armour Bn 


LOCATION: Salinas 


Sanders 


James 


F 


LTC 


Commander 1 


Cook 


Ryan 


K 


MAJ 


Dty Commander 1 


Lopez 


Tom 


L 


CPT 


Company Commander | 


Layton 


John 


E 


CPT 


Corfifiany Cjitmmander 1 


Larson 


Roger 


K 


CPT 


Company Commander I 


Newman 


Ben 


K 


ILT 


Adjutant | 
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1 

2 

3 

4 

5 

6 

1 

2 

3 

4 

5 

6 

1 

2 

3 

4 

5 

1 



UNIT: Engineers Bn LOCATION: Monterey 



Scott 


Paul 


V 


LTC 


Commander 


Kliff 


Frank 


E 


MAJ 


Dty Commander 


Larsen 


Allen 


A 


CPT 


Company Commander 


Gorby 


Glen 


G 


CPT 


Company Commander 


Gordon 


Jerry 


W 


CPT 


Company Commander 


Newton 


John 


J 


ILT 


Adjutant 


UNIT: Signals 


Bn 


LOCATION: Pac Grove 


Turner 


Carlos 


B 


LTC 


Commander 


Clark 


Tom 


L 


MAJ 


Dty Commander 


Good 


John 


L 


CPT 


Company Commander 


Gilman 


Perry 


M 


CPT 


Company Commander 


Garret 


Rex 


D 


CPT 


Company Commander 


Norton 


Denis 


E 


ILT 


Adjutant 


UNIT: Sup/Trans Bn 


LOCATION: Carmel 


Torres 


Alex 


A 


LTC 


Commander 


Freeman 


Jim 


E 


CPT 


Company Commander 


Ford 


Roger 


A 


CPT 


Company Commander 


Foster 


Kliff 


J 


CPT 


Company Commander 


Owens 


Bill 


L 


ILT 


Adjutant 


UNIT: Navy Command 


LOCATION: Monterey 


1 

1 

I Ocasio 


Jim 


K : 


1 1 

! COMD 


1 

1 

1 Commander 
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UNIT: DD Squadron LOCATION: Monterey 



I 

1 

1 


Odel lo 


Bruno 


1 

A 


1 1 
! CAPT 


1 1 
1 1 

1 Commander | 




UNIT: DD Miaoulis 


LOCATION: Monterey 


1 


Quinn 


Peter 


C 


CDR 


Commanding Officer 


2 


Rivera 


Mario 


L 


LCDR 


Executive Officer 


3 


Boris 


Peter 


H 


LT 


ASW Officer 


4 


Ganos 


Jim 


A 


LT 


Navigation Officer 


5 


Takas 


Costas 


L 


LT 


Commun/tion Officer 


6 


Zikas 


Tom 


J 


LT 


CIC Officer 




UNIT: DD kanaris 


LOCATION : Monterey 


1 


Quill 


Kelvin 


J 


CDR 


Commanding Officer 


2 


Ross 


Allan 


J 


LCDR 


Executive Officer 


3 


Kontos 


David 


K 


LT 


ASW Officer 


4 


Kamenos 


Joe 


M 


LT 


Navigation Officer 


5 


Lemos 


Tim 


N 


LT 


Commun/tion Officer 


6 


Onas is 


George 


E 


LTJG 


CIC Officer 




UNIT: DD Themis 


LOCATION: Monterey 


1 


Rokos 


Nick 


A 


CDR 


Commanding Officer 1 


2 


Spencer 


Tim 


M 


LCDR 


Executive Officer I 


3 


Pappas 


Nick 


C 


LTJG 


ASW Officer 1 


4 


Rigas 


Ben 


H 


LTJG 


Commun/tion Officer 1 
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5 


Oscar 


Tom 


K 1 


1 LTJG 1 


1 CIC Officer 




UNIT; LST Squadron 


LO CAT I ON : Mont e r ey 


1 

1 

1 


Potter 


Tom 


1 

1 

E ! 


1 1 
CAPT 


1 i 

1 1 

1 Commander I 




UNIT: LST Argo 




LOCATION: Monterey 


1 


Roberts 


Ben 


J 


CDR 


Commanding Officer 


2 


Stanley 


Cris 


K 


LCDR 


Executive Officer 


3 


Gorman 


Bruce 


L 


LTJG 


Navigation Officer 


4 


Denton 


Mark 


S 


LTJG 


Commun/tion Officer 


5 


Alkamo 


Jim 


P 


LTJG 


CIC Officer 




UNIT: LST Rhodes 


LOCATION: Monterey 


1 


Rodes 


James 


K 


CDR 


Commanding Officer 


2 


Borrias 


Nick 


L 


LT 


Executive Officer 


3 


Franko 


Jess 


L 


LTJG 


Navigation Officer 


4 


Fox 


Don 


E 


LTJG 


Commun/tion Officer 


5 


Jones 


Peter 


L 


LTJG 


CIC Officer 
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4 . Program Report4 



This program prints all the officers who have been 
awarded a degree in the sciences with an emphasis other than 
military sciences. This list includes name, rank, science, 
and degree, and is sorted by name. 

The structure of the program is as follows; 

a. The necessary memory variables are initialized 
and the heading of the report is printed. 

b. The program uses two temporary files, TEMPI and 
TEMP2. The MASTER file is used to create a copy into TEMPI, 
which includes only the necessary fields, serial number, 
name, rank, education, and degree. Only the officers whose 
the field 'educat' is not empty are copied. Then the file 
TEMPI is sorted on key 'name' into the file TEMP2. 

c. Then the program performs a WHILE loop to process 
each record of the file. More specifically within the WHILE 
loop it performs the following; 

(1) Stores the current field values to the 
temporary memory variables. 

(2) Retrieves from RANKS and SCIENCES files the 
appropriate rank name and science name respectively. 

(3) A CASE statement is executed to store the 
appropriate degree to the corresponding variable. 

(4) The main line of the output is printed. 

d. The program proceeds with the next record until 
the end of file (EOF) is encountered. 
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e. Before the program returns it deletes the 
temporary files TEMPI and TEMP2, and updates MONITOR file. 

The listing and output of the programs are shown in 
the next pages. 
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PROGRAM REPORT4 



* This program prints all the officers in alphabetical order 

* who have been awarded a degree in sciences other than 

* military ones 

ERASE 

* Initialize memory variables 

STORE "LIST OF OFFICERS WITH NON-MILITARY STUDIES" TO title 



STORE "==========================================" TO underline 

STORE 1 TO seqnum 

STORE 0 TO linecount 

STORE " " TO pname 

STORE " " TO mscience 

STORE " ” TO meducat 

STORE " " TO pdegree 

STORE " " TO mrank 



* Print the list heading 

SET PRINT ON 
? 

?? " "+DATEO 
? 

•' 

? " "+title 

? " "+underline 

■? '* 

'■ " 

? " 1 SEQ# ! NAME | RANK 1 SCIENCE 

?? " ! DEGREE I " 

<p •' 

•• 

STORE linecount+9 TO linecount 

* Copy to temporary file TEMPI those officers whose field 

* 'educat’is not empty and only the necessary fields, 

* and then sort this file by name into file TEMP2 

SELECT PRIMARY 
USE master 

COPY TO tempi FIELD serno, neune, rank, educat, degree ; 

FOR educat <> " " 

USE tempi 

SORT ON name TO temp2 ASCENDING 
USE temp2 

DO WHILE .NOT. EOF 

* Store current field values to memory variables 
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STORE name TO pname 
STORE rank TO mrank 
STORE educat TO meducat 

* Retrieve the appropriate rank name and science name 

SELECT SECONDARY 
USE reinks INDEX ranks 
FIND &mrank 

IF $(p. serno, 1, 1 ) = "1" 

STORE armyname TO reinkname 
ELSE 

STORE navyname TO rankname 
END IF 

USE sciences INDEX sciences 

FIND &meducat 

STORE name TO mscience 

* Store the appropriate degree depending on the value of the 

* field "degree" of TEMP2 to the corresponding variable 

DO CASE 



CASE p. degree = "B" 
STORE "Bachelor" 


TO 


pdegree 


CASE p. degree = "M" 
STORE "Master 


TO 


pdegree 


CASE p. degree = "P" 
STORE "Ph.D 


TO 


pdegree 



OTHERWISE 
ERASE 
? CHR(7) 

© 3,30 SAY "ILLEGAL DEGREE" 

© 5,27 SAY p.degree+" "+p.name 
STORE 0 TO del 
DO WHILE del < 50 

STORE del+1 TO del 
ENDDO WHILE 
ENDCASE 

* Print the main line of the output 

IF linecount > 53 
EJECT 

STORE 0 TO linecount 
END IF 

"II I I ’• 

II II 

I I " 

I I 

" I "+STR( seqnum, 3 ) 

"+pname 
"+rankname 
"+mscience 
"+pdegree+" " 

STORE seqnum+1 TO seqnum 
STORE linecount+2 TO linecount 



7 

?? " 

7 

epcp I 

• * I 

" I 

• • I 

cpcp " I 

• • I 

?? " ! 
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STORE 

STORE 

STORE 

STORE 

STORE 

STORE 



" TO pname 



■’ TO rankname 



" TO mscience 



" TO meducat 



" TO pdegree 



" TO mrank 



SELECT PRIMARY 
SKIP 

ENDDO WHILE .NOT. EOF 
DO monitr 

* Delete the temporary files TEMPI and TEMP2 

DELETE FILE tempi. DBF 
DELETE FILE temp2.DBF 
RETURN 
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12/01/85 



LIST OF OFFICERS WITH NON-MILITARY STUDIES 



I SEQ# ! 


N - 


A M E 




RANK 1 


SCIENCE 1 


DEGREE 1 


! 1 


Adams 


Garry 


J 


CPT 


Oper Research 


Bachelor I 


i 2 


Alkamo 


J im 


P 


ILT 


Meteorology 


Bachelor 1 


! 3 


Borrias 


Nick 


L 


CPT 


Weapons 


Master I 


! 4 


Bruce 


Mark 


P 


CPT 


Oper Research 


Master 1 


! 5 


Clark 


Tom 


L 


MAJ 


Economics 


Master 1 


! 6 


Crosby 


Jerry 


J 


MAJ 


Mec Engineering 


Bachelor 1 


! 7 


Faser 


Gas 


L 


ILT 


Meteorology 


Bachelor 1 


1 8 


Frank 


Paul 


K 


ILT 


Management 


Master 1 


I 9 


Freeman 


J im 


E 


CPT 


Management 


Bachelor 1 


! 10 


Ganos 


J im 


A 


CPT 


Weapons 


Master 1 


! 11 


Gordon 


Jerry 


W 


CPT 


Comp Science 


Ph. D ! 


1 12 


Jensen 


Ron 


P 


CPT 


Info Systems 


Bachelor I 


I 13 


Kaan 


Dave 


J 


MG 


Mathematics 


Bachelor i 


i 14 


Kamenos 


Joe 


M 


CPT 


Oceanography 


Bachelor 1 


! 15 


King 


Lewis 


M 


LTC 


Chemistry 


Bachelor 1 


! 16 


Koom 


Peter 


H 


LTC 


Phys ics 


Bachelor 1 


! 17 


Lopez 


Tom 


L 


CPT 


Comp Science 


Bachelor 1 


! 18 


Morton 


Brian 


C 


CPT 


Comp Science 


Master I 


! 19 


Newman 


Ben 


K 


ILT 


Meteorology 


Bachelor j 


i 20 


Norton 


Denis 


E 


ILT 


Medicine 


Bachelor 1 


! 21 


Ocasio 


Jim 


E 


BG 


Weapons 


Master I 


! 22 


Odello 


Bruno 


A 


COL 


Weapons 


Master | 
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23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 



Olsen Joe 



N 



Onasis 


George 


E 


Palmer 


Bob 


L 


Pappas 


Nick 


C 


Potter 


Tom 


E 


Quinn 


Peter 


C 


Rigas 


Ben 


H 


Roberts 


Ben 


J 


Ross 


Allan 


J 


Spencer 


Tim 


M 


Turner 


Carlos 


B 


Ulrey 


Dan 


A 


Watson 


Ralph 


D 


Zikas 


Tom 


J 



LTC 


Architecture 


Bachelor 


ILT 


Ship Building 


Master 


LTC 


Aeronautics 


Master 


ILT 


Ship Building 


Master 


COL 


Weapons 


Master 


LTC 


Weapons 


Master 


ILT 


Ship Building 


Ph. D 


LTC 


Ship Building 


Master 


MAJ 


Weapons 


Ph. D 


MAJ 


Weapons 


Master 


LTC 


El Engineering 


Bachelor 


CPT 


Comp Systems 


Master 


CPT 


Comp Systems 


Master 


CPT 


Weapons 


Master 
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5 . Program Reports 



This program prints all the officers who speak 
foreign languages. The list is sorted by language and name 
and, includes the language spoken as a heading, name, rank, 
and unit. 

The structure of the program is as follows: 

a. The necessary memory variables are initialized. 

b. A list of all the languages is displayed on the 
screen and the user is prompted to select a particular, or 
all the languages to be printed. 

c. Depending on the user's choice the program creates 
a copy fo the MASTER file to temporary file TEMP which includes 
all the officers who speak any or a particular language. If 
the user enters a wrong selection, the program goes back to 
step (b) . 

d. The main heading of the output is printed. 

e. If the user decides to print all the languages, 
then, the program sorts the created copy on ascending keys 
'forlang' and 'name' into file TEMP2, and a WHILE loop is 
executed to make the process which includes: 

(1) The file TEMP2 is read sequentially. The 
field 'for lag' is compared to the variable 'lang' which con- 
tains the value of the field 'forlag' of the previous record. 

If it is different, this means that we have a new language, 
whose name is printed as a heading. 
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(2) The program retrieves the rank and unit 
names, from the corresponding files, and prints the main 
line of the output. 

(3) The process is continued with the next 

record . 

■f. - If the user decides to print a particular lan- 
guage, the corresponding language heading is printed, and 
the previously created copy is sorted by name, into TEMPI. 

g. Then a WHILE loop is executed which performs 
the same things as above, except the comparison, because 
now we have only one language. 

h. At the end all the temporary files are deleted, 
the monitor file is updated, and the program returns to 
SUBMENU2 . 

The listing and output of the program are shown in 
the next pages. 
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*****;<{*;♦: PROGRAM REPORTS ****.*.^^^ 



* This program prints the officers who speaJk a particular 
*■ or any foreign language 

ERASE 

SELECT PRIMARY 

* Initialize memory variables 
STORE 4 TO vert 



STORE " " TO line 

STORE •■============" TO linel 

STORE '• " TO lang 

STORE " " TO mlang 

STORE " '• TO pname 

STORE TO mrank 

STORE " " TO munit 

STORE " " TO prank 

STORE " " TO pun it 



STORE 0 TO linecount 
STORE 1 TO seqnum 



* Display on the screen the list of languages and ask the 

* user to make his choice 

STORE T TO wrong 
DO WHILE wrong 
ERASE 

@ 1,30 SAY "LANGUAGES LIST" 

@ 2,30 SAY "==============" 

@3,30 SAY "00 ALL" 

USE forlangs 
DO WHILE .NOT. EOF 

@ vert, 30 SAY code+line+name 

STORE vert+1 TO vert 

SKIP 

ENDDO WHILE 

@ vert+2, 27 SAY "Make your selection" 

@ vert+4, 27 SAY "Enter two blanks to exit" 

STORE 4 TO vert 
STORE " " TO choice 

ACCEPT TO choice 
IF choice = 

USE 

RETURN 
END IF 

* Create the appropriate copy according to the user's 

* selection 

USE master 
IF choice =' "00" 

COPY TO temp FIELD name, rank, unit, forlaing; 
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FOR forlang <> " 

STORE F TO wrong 
ELSE 

IF VAL(choice) >= 01 .AND. VAL(choice) <= 16 

COPY TO temp FIELD name, raink, unit FOR forlang = choice 
STORE F TO wrong 
ELSE 



* If the user enters a wrong number, display an error 

* message and give him another chance 

ERASE 

@ 9, 18 SAY choice+" is an illegal choice, try eigain" 

? CHR(7) 

STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
END IF 
END IF 

ENDDO WHILE wrong 
* Print the main heading 



ERASE 

SET PRINT ON 
? 

? 

? 

? 



■'+DATE( ) 

LIST OF OFFICERS WHO SPEAK FOREIGN LANGUAGES" 



* 

? "x<SEQl#j NAME | RANK UNIT *' 

^ ^ >|{^ ^ii|^ * 

STORE linecount+9 TO linecount 



♦ Do the appropriate process depending on the 

* user’s request 

IF choice = "00" 



* Sort the created copy on ascending keys 

* ’forlang’ and ’name’ 

USE temp 

SORT ON name TO tempi 
USE tempi 

SORT ON forlang TO temp2 
USE temp2 

DO WHILE .NOT. EOF 

'* If a new code for the field ’forlang’ is encountered 
print the new language heading 
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IF forlang <> lang 



STORE for lang TO lang 
STORE forlang TO mlang 
STORE 1 TO seqnum 

7 



STORE linecount+2 TO linecount 
IF linecount > 53 
EJECT 

STORE 0 TO linecount 
END IF 

SELECT SECONDARY 

USE forlangs INDEX forlangs 

FIND Sunlang 



STORE linecount+3 TO linecount 
END IF 

* Store current field values to memory variables 

SELECT PRIMARY 
STORE najne TO pneime 
STORE rank TO mrank 
STORE unit TO munit 

* Retrieve rank and unit names 

SELECT SECONDARY 
USE ranks INDEX ranks 
FIND &mrank 
IF $(munit, 1,1) = "1" 

STORE armyname TO prank 
ELSE 

STORE navyname TO prank 
END IF 

USE units INDEX units 

FIND &munit 

STORE title TO punit 

* Print the main line 

IF linecount > 53 
EJECT 

STORE 0 TO linecount 



9 

9 

9 



"+linel 
" +name 
"+linel 



END IF 

9 

?? " 

9 

cptp •• I 



" 1 "+STR( seqnum, 3 ) 
" +pname 
"+prank 
"+punit+" I " 



" I » 

I I 



I " 
I 



I '• 



I 



?? 
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STORE seqnum+1 TO seqnum 
STORE linecount+2 TO linecount 

* Continue with the next record 

SELECT PRIMARY 
SKIP 

ENDDO WHILE 
ELSE 

* Handle the case where the user has requested 

* a list of those officers who spealc a 

* particular leinguage 

SELECT SECONDARY 

USE forlangs INDEX forlangs 

FIND &choice 

p 

? 

? " "+linel 

? " "+name 

? " '‘ + linel 

STORE linecount+5 TO linecount 

* Sort the created copy in ascending order 

* with key ^name’ 

SELECT PRIMARY 
USE temp 

SORT ON name TO tempi 
USE tempi 

DO WHILE .NOT. EOF 

*■ Store current field values to memory variables 

STORE name TO pname 
STORE rank TO mrank 
STORE unit TO munit 

*■ Get the rank and unit names 

SELECT SECONDARY 
USE ranks INDEX ranks 
FIND &mrank 
IF $(p. unit, 1, 1 ) = "1" 

STORE armyname TO prank 
ELSE 

STORE navyname TO prank 
END IF 

USE units INDEX units 

FIND &munit 

STORE title TO punit 

* Print the main line 
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IF linecount > 53 
EJECT 

STORE 0 TO linecount 



END IF 



<? 

?? 



'• I I 

I I 



I " 
i 



" » 

• • I 

?? " 
?? " 
STORE 



" 1 ”+STR( seqnum, 3) 



" +name 
"+prank 
"+punit+" I" 



seqnum+1 TO seqnum 



STORE linecount+2 TO linecount 

* Proceed with the next record 

SELECT PRIMARY 
SKIP 

ENDDO WHILE 
ENDIF 

* Delete the temporary files 

IF choice = "00" 

DELETE FILE temp. DBF 
DELETE FILE tempi. DBF 
DELETE FILE temp2.DBF 
ELSE 

DELETE FILE temp. DBF 
DELETE FILE tempi. DBF 
ENDIF 

* Update MONITOR file and return 

DO monitr 
RETURN 
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12/01/85 



LIST OF OFFICERS WHO SPEAK FOREIGN LANGUAGES 



^|c ^|c ^|c ^|c ^|c ^|c ^|c 

*SEQ#1 NAME 1 RANK | UNIT * 

^|c s|^ V^ Sj|^ v^ \|^ \|^ v^ \|^ \|^ 



English 



1 


Allen 


David 


E 


CPT 


2nd Inf Bn 


2 


Borrias 


Nick 


L 


LT 


LST Rhodes 


3 


Cook 


Ryan 


K 


MAJ 


Armour Bn 


4 


Dalton 


John 


E 


MAJ 


4th Inf Bn 


5 


Farmer 


Peter 


J 


ILT 


5th Inf Bn 


6 


Ford 


Roger 


A 


CPT 


Sup/Trans Bn 


7 


Fox 


Don 


E 


LTJG 


LST Rhodes 


8 


Gan os 


J im 


A 


LT 


DD Miaoulis 


9 


Garret 


Rex 


D 


CPT 


Signals Bn 


10 


Gorby 


Glen 


G 


CPT 


Engineers Bn 


11 


Gorman 


Bruce 


L 


LTJG 


LST Argo 


12 


Jackson 


Peter 


M 


CPT 


3rd Inf Bn 


13 


Kaan 


Dave 


J 


MG 


1st Inf Div 


14 


Karras 


Mike 


L 


LTC 


1st Inf Div 


15 


Keen 


Robt 


N 


COL 


1st Inf Div 


16 


Larson 


Roger 


K 


CPT 


Armour Bn 


17 


Man os 


John 


K 


CPT 


1st Arty Bn 


18 


Newton 


John 


J 


ILT 


Engineers Bn 


19 


Onasis 


George 


E 


LTJG 


DD kanaris 


20 


Owens 


Bill 


L 


ILT 


Sup/Trans Bn 
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21 


Palmer 


Bob 


L 


LTC 


5th Inf Bn 


22 


Perry 


Bill 


H 


LTC 


2nd Arty Bn 


23 


Peters 


Mark 


J 


LTC 


3rd Inf Bn 


24 


Quill 


Kelvin 


J 


CDR 


DD kanaris 


25 


Scott 


Paul 


V 


LTC 


Engineers Bn 


26 


Victor 


David 


R 


CPT 


5th Inf Bn 






German 






1 


King 


Lewis 


M 1 


1 1 
LTC 


1 1 
1 1st Inf Bn ! 






Italian 






1 


Dorey 


J im 


H i 


1 1 
1 MAJ 


1 1 
1 2nd Inf Bn ! 






French 






1 


Bruce 


Mark 


P 


CPT 


1st Inf Bn 


2 


Torres 


Alex 


A 


LTC 


Sup/Trauis Bn 






Spanish 






1 


Evans 


Isaac 


M 


ILT 


2nd Arty Bn 


2 


Ingals 


Tomas 


R 


CPT 


4th Inf Bn 






Turkish 






! 1 


Potter 


Tom 


E 


CAPT 


LST Squadron 


: 2 


Roberts 


Ben 


J 


CDR 


LST Argo 
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! 



Arabi^ 



1 


Kamenos 


Joe 


M 


LT 


/ 


2 


Rivera 


Mario 


L 


LCDR 








Japamese 




1 


Alkauno 


Jim 


P 


LTJG 


1 


2 


Clark 


Tom 


L 


MAJ 


1 

Signals Bn I 






Chinese 






1 


Horan 


Kevin 


L 


CPT 


2nd Inf Bn 


2 


Morton 


Brian 


C 


CPT 


2nd Arty Bn 






Portuguese 




1 


Frank 


Paul 


K 


ILT 


1st Inf Bn 


2 


Watson 


Ralph 


D 


CPT 


4th Inf Bn 






1 1 

1 1 

1 C 1 
1 1 


si an 






! 1 


Ocasio 


Jim 


E 


COMD 


Navy Command 


1 2 


Spencer 


Tim 


M 


LCDR 


DD Themis 






Bulgarian 




1 

1 

1 1 


1 

1 Zikas 


Tom 


J 


1 

! LT 


1 1 

1 1 

1 DD Miaou 1 is 
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Korean 



Rigas 


1 

Ben H | 


LTJG 


1 

1 

1 DD Themis 




Danish 






U1 Iman 


1 

Rolf G ! 


CRT 


1 

1 

1 1st Arty Bn 




Swedish 






Felton 


1 

John K 1 

1 


ILT 


3rd Inf Bn 


Lopez 


Tom L 1 


CRT 


Armour Bn 




Dutch 






Good 


1 

1 

John L 1 


CRT 


1 

1 

! Signals Bn 
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6 . Program Reports 



This program lists all the officers in alphabetical 
order, including name, rank, marital status, and number of 
children. 

The program has the following structure: 

a. The appropriate memory variables are initialized 
and the main titles are printed. 

b. We use two temporary files, TEMPI and TEMP2. The 
first one is used for creating a copy from MASTER file, and 
which includes, serial number, name, rank, marital status, 
and number of children, i.e. only the necessary information 
for creating the report. Then this file is sorted by name 
into the file TEMP2. 

c. Then the main process of the program is executed 
within a WHILE loop with the following functions: 

(1) The current field values are stored to the 
memory variables. 

(2) The appropriate rank name is retrieved from 
RANKS file and marital status is stored to the corresponding 
variable, depending on the value of the field 'marstat' , of 
the file TEMP2. 

(3) Then the program prints the main line and 
proceeds with the next record. 

d. At the end of the WHILE loop the program deletes 
the files TEMPI and TEMP2, and then returns to the calling 
program. 
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The listing and output of the program are shown in 



the next pages. 
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^ PROGRAM REPORTS **>t;*^;t£** 



* This program lists all the officers in alphabetical order 

* including name, rank, marital status, and number of children 

ERASE 

* Initialize memory variables 

STORE "LIST OF OFFICERS INCLUDING MARITAL STATUS" TO title 



STORE "=========================================" TO underline 

STORE 1 TO seqnum 

STORE 0 TO linecount 

STORE " " TO pname 

STORE " " TO pmarstat 

STORE " " TO pchildren 

STORE " " TO prank 

STORE " " TO mrank 



* Print the list heading 



SET PRINT ON 
? 

?? " "+DATEO 

? 

•• ■' 

<7 

? " "+title 

? " "+underline 

<? '• 

?? 

? " I SEQ# j NAME 

?? "STATUS ! CHILDREN j" 

<V> '• 

77 '• '• 

STORE linecount+9 TO linecount 



I RANK I MARITAL" 



* Copy MASTER file to temporary file TEMPI including only the 

* necessary fields, and sort this file by name into TEMP2 

SELECT PRIMARY 
USE master 

COPY TO tempi FIELD serno, name, rank, marstat, children 
USE tempi 

SORT ON name TO temp2 ASCENDING 
USE temp2 

DO WHILE .NOT. EOF 



* Store current field values to memory variables 

STORE naime TO pname 
STORE rank TO mrank 
STORE marstat TO pmarstat 



STORE children TO pchildren 

* Get the appropriate rank naime 

SELECT SECONDARY 
USE ranks INDEX ranks 
FIND &mrank 

IF $(p. serno, 1, 1 ) = "1" 

STORE armyname TO prank 
ELSE 

STORE navynajne TO prank 
END IF 



* Store the appropriate marital status name 
DO CASE 

CASE p.marstat = "M" 

STORE "Married " TO pmarstat 
CASE p.marstat = ”U" 

STORE "Unmarried" TO pmarstat 
CASE p.marstat = "D" 

STORE "Divorced " TO pmarstat 
OTHERWISE 
ERASE 
? CHR(7) 

@ 10,30 SAY "ILLEGAL MARITAL STATUS" 
0 12,30 SAY p. marstat+ " ***" +p . name 
STORE 1 TO del 
DO WHILE del < 50 

STORE del+1 TO del 
ENDDO 
ENDCASE 

* Print the main line of the list 



IF linecount > 53 
EJECT 

STORE 0 TO linecount 
END IF 



7 

?? 

7 



" I 
I 



" I 
\ 



I 

I 

I 

I 

"+STR( seqnum, 3) 



I 



?? "I "+pname 

?? " I "+prank 

?? "I "+praarstat 

?? " ! "+pchildren+" ! " 

STORE seqnum+1 TO seqnum 

STORE linecount+2 TO linecount 

STORE " " TO pname 

STORE " " TO pmarstat 

STORE " " TO prank 

STORE " " TO pchildren 

STORE " " TO mrank 

SELECT PRIMARY 



I 
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SKIP 

ENDDO WHILE .NOT. EOF 
DO monitr 



* Delete the temporary files TEMPI and TEMP2 

DELETE FILE tempi. DBF 
DELETE FILE tempE.DBF 
RETURN 
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12/01/85 



LIST OF OFFICERS INCLUDING MARITAL STATUS 



! SEQ# , 


N A 


M E 




RANK 1 


MARITAL STATUS I 


CHILDREN 1 


! 1 


Adams 


Garry 


J 


CPT 


Married 




! 2 


Alkamo 


J im 


P 


ILT 


Married 


3 : 


! 3 


Allen 


David 


E 


CPT 


Divorced 


1 i 


I 4 


Boris 


Peter 


H 


CPT 


Married 


1 ! 


! 5 


Borr ias 


Nick 


L 


CPT 


Unmarried 




! 6 


Brown 


Peter 


R 


CPT 


Married 


1 i 


! 7 


Bruce 


Mark 


P 


CPT 


Divorced 




! 8 


Byron 


Larry 


M 


CPT 


Unmarried 




! 9 


Clark 


Tom 


L 


MAJ 


Unmarried 




! 10 


Cook 


Ryan 


K 


MAJ 


Married 


2 ! 


i 11 


Crosby 


Jerry 


J 


MAJ 


Married 


2 ! 


! 12 


Dalton 


John 


E 


MAJ 


Married 




! 13 


Denton 


Mark 


S 


ILT 


Married 


2 ! 


! 14 


Dorey 


J im 


H 


MAJ 


Divorced 


2 i 


! 15 


Durran 


Frank 


M 


MAJ 


Married 




! 16 


Emery 


Roy 


J 


MAJ 


Divorced 




! 17 


Evans 


Isaac 


M 


ILT 


Married 


1 i 


I 18 


Evans 


Tom 


M 


ILT 


Unmarried 




1 19 


Farmer 


Peter 


J 


ILT 


Unmarried 




! 20 


Faser 


Gas 


L 


ILT 


Unmarried 




! 21 


Felton 


John 


K 


ILT 


Unmarried 




i 22 


Foley 


Mark 


L 


ILT 


Unmarried 
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23 


Ford 


Roger 


A 


CPT 


Married 


2 


24 


Foster 


Kliff 


J 


CPT 


Married 


3 


25 


Fox 


Don 


E 


ILT 


Unmarried 




26 


Frank 


Paul 


K 


ILT 


Unmarried 




27 


Franko 


Jess 


L 


ILT 


Divorced 


1 


28 


Freeman 


Jim 


E 


CPT 


Married 


1 


29 


Gan os 


Jim 


A 


CPT 


Married 


2 


30 


Garret 


Rex 


D 


CPT 


Married 




31 


G i Iman 


Perry 


M 


CPT 


Divorced 




32 


Good 


John 


L 


CPT 


Unmarried 




33 


Gorby 


Glen 


G 


CPT 


Unmarried 




34 


Gordon 


Jerry 


W 


CPT 


Married 


2 


35 


Gorman 


Bruce 


L 


ILT 


Married 


1 


36 


Hogan 


Joe 


K 


CPT 


Unmarried 




37 


Horan 


Kevin 


L 


CPT 


Unmarried 




38 


Ingals 


Tomas 


R 


CPT 


Divorced 




39 


Jackson 


Peter 


M 


CPT 


Unmarried 




40 


Jensen 


Ron 


P 


CPT 


Married 


2 


41 


Jones 


Peter 


L 


ILT 


Married 


2 


42 


Kaan 


Dave 


J 


MG 


Married 


1 


43 


Kamenos 


Joe 


M 


CPT 


Divorced 


2 


44 


Kane 


Bob 


R 


BG 


Married 


2 


45 


Karras 


Mike 


L 


LTC 


Married 


2 


46 


Keen 


Robt 


N 


COL 


Married 


1 


47 


King 


Lewis 


M 


LTC 


Unmarried 




48 


Kirk 


Burt 


N 


LTC 


Unmarried 




49 


Kliff 


F rank 


E 


MAJ 


Unmarried 
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50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 



3 

3 

1 

1 

2 

1 

2 

3 

2 

2 

1 

3 

2 

1 

1 

3 

1 

1 

2 



Kontos 


David 


K 


OPT 


Married 


Koom 


Peter 


H 


LTC 


Married 


Kueny 


John 


S 


LTC 


Unmarried 


Larsen 


Allen 


A 


OPT 


Married 


Larson 


Roger 


K 


OPT 


Unmarried 


Layton 


John 


E 


OPT 


Divorced 


Leraos 


Tim 


N 


OPT 


Unmarried 


Lopez 


Tom 


L 


OPT 


Married 


Man os 


John 


K 


OPT 


Married 


Moore 


Roger 


L 


OPT 


Married 


Morris 


Roy 


K 


OPT 


Married 


Morton 


Brian 


C 


OPT 


Married 


Newman 


Ben 


K 


ILT 


Married 


Newton 


John 


J 


ILT 


Married 


Norton 


Denis 


E 


ILT 


Married 


Ocasio 


J im 


E 


BG 


Married 


Odel lo 


Bruno 


A 


COL 


Divorced 


Olsen 


Joe 


N 


LTC 


Married 


Onasis 


George 


E 


ILT 


Unmarried 


Oscar 


Tom 


K 


ILT 


Married 


Owens 


Bill 


L 


ILT 


Married 


Palmer 


Bob 


L 


LTC 


Married 


Pappas 


Nick 


C 


ILT 


Unmarried 


Patton 


Mike 


H 


LTC 


Married 


Perry 


Bill 


H 


LTC 


Married 


Peters 


Mark 


J 


LTC 


Divorced 


Peters 


Nick 


K 


LTC 


Married 
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77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 



1 

1 

2 

2 

2 

2 

2 

1 

3 

2 

2 



Potter 


Tom 


E 


COL 


Unmarried 


Quill 


Kelvin 


J 


LTC 


Unmarried 


Quinn 


Peter 


C 


LTC 


Married 


Rigas 


Ben 


H 


ILT 


Married 


Rivera 


Mario 


L 


MAJ 


Married 


Roberts 


Ben 


J 


LTC 


Divorced 


Rodes 


James 


K 


LTC 


Married 


Rokos 


Nick 


A 


LTC 


Married 


Ross 


Allan 


J 


MAJ 


Married 


Sanders 


James 


F 


LTC 


Unmarried 


Scott 


Paul 


V 


LTC 


Unmarried 


Spencer 


Tim 


M 


MAJ 


Unmarried 


Stem ley 


Gris 


K 


MAJ 


Unmarried 


Takas 


Costas 


L 


CPT 


Married 


Torres 


Alex 


A 


LTC 


Unmarried 


Turner 


Carlos 


B 


LTC 


Unmarried 


Oilman 


Rolf 


G 


CPT 


Married 


□ Irey 


Dan 


A 


CPT 


Married 


Victor 


David 


R 


CPT 


Unmarried 


Vongel 


Mark 


E 


CPT 


Unmarried 


Warren 


Geo 


M 


CPT 


Married 


Waters 


Gary 


L 


CPT 


Married 


Watson 


Ralph 


D 


CPT 


Divorced 


Z ikas 


Tom 


J 


CPT 


Married 
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7 . Program Report? 



This program calculates the service time in the cur- 
rent unit, as well as the total service time for each officer. 
The output of the program is directed to the printer only, 
while appropriate messages are displayed on the screen to 
inform the user of what is going on at the various steps of 
the program. 

The structure of the program is as follows: 

a. The necessary memory variables are initialized 
and the headlines are printed. 

b. The MASTER file is copied to the file TEMP 
including only the fields 'name', 'serentry', and ' reptdate ' . 
Then this file is sorted by name to the file TEMPI, which is 
used for the main process. 

c. The program performs a WHILE loop to do the 
following ; 

(1) In order to do the calculations the proper 
way, we have to transform the format of the dates from 
MM/DD/YY to YY/MM/DD. 

(2) We calculate the service time in current 

unit as follows: The day of the report date, is compared 

to the day of the day of the current date. If- it is greater, 
we add 30 days to the day of the current date, and subtract 
1 from the month of the current date, otherwise they remain 
unchanged. Then the month of report is compared to the 
month of the current date, either unchanged or reduced by 1 
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as mentioned before. If it is greater we add 12 to the month 
of the current date and subtract 1 from the year of the cur- 
rent date, otherwise remain unchanged. This way we make 
sure that the subtraction is possible. We do the operation 
storing the number of years, months, and days to memory 
variables . 

(3) With the same logic we calculate the total 
service time. 

(4) The program prints the main line, reinitial- 
izes the proper memory variables to accept the new values, 
and continues with the next record. 

d. At the end the MONITOR file is updated, the 
temporary files are deleted, and the program returns. 

The listing and output of the program are shown in 
the next pages. 
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******** program report? ******** 



* This program prints all the officers with their service 

* time in the current unit and the total service time 

ERASE 

SET CONSOLE OFF 
SET PRINT ON 

* Initialize memory variables 

STORE " ” TO pname 

STORE " " TO mdate 

STORE " '■ TO mserentry 

STORE " " TO mreptdate 

STORE "LIST OF OFFICERS INCLUDING SERVICE TIME" TO tit lei 

STORE "IN CURRENT UNIT AND TOTAL SERVICE TIME" TO title2 
STORE "=======================================•• TO lines 

STORE "* ! .'SERVICE TIME IN UNIT" TO titleS 

STORE "1 TOTAL SERVICE TIME *" TO title4 

STORE "*SEQ#! NAME I " TO midlinel 

STORE " ! *" TO midline2 

STORE 1 .'YEARS MONTHS DAYS" TO title5 

STORE " ! YEARS MONTHS DAYSH^" TO titleS 

STORE "**************************************" TO linel 

STORE "****************************" TO line2 

STORE 0 TO linecount 

STORE 1 TO seqnum 

STORE 0 TO day 

STORE 0 TO days 

STORE 0 TO month 

STORE 0 TO months 

STORE 0 TO year 

STORE 0 TO years 

STORE 0 TO dayl 

STORE 0 TO month 1 

STORE 0 TO month2 

STORE 0 TO yearl 

* Print main headings 

@ 9, 19 SAY "Now the headlines are being printed" 



?? 



"+DATE( ) 



?? 

p 

p 

p 

p 

p 

p 



"+titlel 
"+1 ine3 
"+title2 
"+1 ine3 



? Iinel+line2 
? title3+t itle4 
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? midlinel+midline2 
? title5+title6 
? Iinel+line2 

STORE linecount+13 TO linecount 
ERASE 

* Create a copy of the MASTER file and sort it by name 

@ 9, 17 SAY "Now wait a little, the MASTER file is being sorted" 
SELECT PRIMARY 
USE master 

COPY TO temp FIELD name, serentry, reptdate 
USE temp 

SORT ON neime TO tempi 

USE tempi 

ERASE 

@ 9,21 SAY "Report? is currently being printed" 

DO WHILE .NOT. EOF 

* Store current field values in temporary variables 

* so that the report date and service entry are 

* transformed from the form MM/DD/YY to the form 

* YY/MM/DD 

STORE name TO pname 

STORE $( reptdate, 5, 2 ) +$( reptdate, 1, 2) +$( reptdate, 3,2); 

TO mreptdate 

STORE $( serentry, 5,2) +$( serentry, 1,2) +$( serentry, 3,2); 

TO mserentry 

STORE $(DATE( ) , 7, 2)+$(DATE( ), 1, 2)+$(DATE( ) , 4, 2) TO mdate 

* Calculate the service time in current unit 



IF VAL( $( mreptdate, 5, 2 ) ) > 
STORE VAL($(mdate, 5, 2) ) 
STORE VAL($(mdate, 3, 2) ) 
ELSE 

STORE VAL($(mdate, 5, 2) ) 
STORE VAL($(mdate, 3, 2) ) 
ENDIF 



VAL($(mdate, 5, 2) ) 
+ 30 TO dayl 
- 1 TO month 1 

TO dayl 
TO month 1 



IF VAL( $( mreptdate, 3, 2) ) > month 1 
STORE month 1 + 12 TO month2 
STORE VAL($(mdate, 1, 2 ) ) - 1 TO yearl 
ELSE 

STORE month 1 TO month2 
STORE VAL($(mdate, 1, 2) ) TO yearl 
ENDIF 



STORE yearl - VAL( $( mreptdate, 1, 2) ) TO years 
STORE month2 - VAL( $( mreptdate, 3, 2 ) ) TO months 
STORE dayl - VAL( $(mreptdate, 5 , 2 ) ) TO days 



* Calculate the total service time 



IF VAL( $( mserentry, 5, 2 ) ) > VAL( $(mdate, 5, 2 ) ) 
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STORE VAL($(mdate, 5, 2) ) + 30 TO dayl 
STORE VAL( $(mdate, 3, 2 ) ) - 1 TO monthl 
ELSE 

STORE VAL($(mdate, 5, 2) ) TO dayl' 

STORE VAL( $(mdate, 3, 2 ) ) TO monthl 
END IF 

IF VAL( $(mserentry, 3, 2 ) ) > monthl 
STORE monthl + 12 TO month2 
STORE VAL( $(mdate, 1, 2 ) ) - 1 TO yearl 
ELSE 

STORE monthl TO month 2 
STORE VAL( $(mdate, 1, 2 ) ) TO yearl 
END IF 

STORE yearl - VAL( $(mserentry, 1, 2 ) ) TO year 
STORE month2 - VAL( $(mserentry, 3, 2 ) ) TO month 
STORE dayl - VAL( $(mserentry, 5 , 2 ) ) TO day 



* Print the main line 



IF linecount > 53 
EJECT 

STORE 50 TO linecount 
ENDIF 



p 

?? 



I 

I 



I " 
I 



? " I "+STR( seqnum, 3 ) 

?? " I ''+name 

?? "[ ■‘+STR(years, 2) + " " +STR( months, 2) + " 

?? STR(days, 2)+” 1 " 

?? STR(year, 2 ) +" “+STR(month, 2 ) +" 

?? STR(day, 2)+" 1 " 

STORE seqnum+1 TO seqnum 
STORE linecount+2 TO linecount 



* Reinitialize to 0 the memory variables that contain 

* the service times 



STORE 0 TO year 
STORE 0 TO month 
STORE 0 TO day 
STORE 0 TO years 
STORE 0 TO months 
STORE 0 TO days 
SKIP 

ENDDO WHILE .NOT. EOF 

* Delete the temporary files and update the MONITOR file 
ERASE 

@ 9,20 SAY "The temporary auxiliary files are being deleted" 

DELETE FILE temp 

DELETE FILE tempi 

DO monitr 

ERASE 
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SET CONSOLE ON 
RETURN 



12/01/85 



LIST OF OFFICERS INCLUDING SERVICE TIME 
IN CURRENT UNIT AND TOTAL SERVICE TIME 



v|^ 



>|C 

^SEQn 


N A 


M E 




SERV 


TIME IN 


UNIT 


TOTAL 


SERVICE 


TIME* 

'f 




YY 


MM 


DD 


YY 


MM 


DD * 


>*o|o*c>tc^<<>l< 

1 


^|c ^|c ^|c ^|c ^|c ^|c ' 


^|c 4^|c ^|c ^|c y|c ^ 


^|c ^|c /|C ^jc ^{c '‘{C 


1 

! 1 
1 


Adams 


Garry 


J 


1 


2 


11 


13 


2 


10 


1 

1 2 
1 


Alkamo 


J im 


P 


2 


4 


11 


9 


2 


9 


1 

! 3 
1 


Allen 


David 


E 


2 


2 


15 


13 


2 


10 


i 4 
1 


Boris 


Peter 


H 


1 


4 


15 


13 


2 


9 


1 

! 5 
1 


Borrias 


Nick 


L 


1 


4 


25 


16 


2 


9 


! 6 
1 


Brown 


Peter 


R 


2 


2 


15 


13 


2 


10 


1 

I 7 
1 


Bruce 


Mark 


P 


1 


3 


16 


14 


2 


11 


! 8 
1 


Byron 


Larry 


M 


1 


3 


10 


14 


2 


11 


! 9 
1 


Clark 


Tom 


L 


2 


4 


9 


16 


2 


10 


! 10 
1 


Cook 


Ryan 


K 


1 


4 


10 


15 


2 


9 


! 11 
I 


Crosby 


Jerry 


J 


2 


4 


11 


16 


2 


10 


! 12 
1 


Dalton 


John 


E 


2 


4 


11 


17 


2 


10 


! 13 
1 


Denton 


Mark 


S 


1 


4 


12 


9 


2 


9 


! 14 
1 


Dorey 


J im 


H 


1 


4 


11 


18 


2 


11 


1 15 
1 


Durr an 


Frank 


M 


1 


4 


11 


18 


2 


11 


1 16 
1 


Emery 


Roy 


J 


2 


4 


13 


18 


O 

C, 


11 


i 17 
1 


Evans 


Isaac 


M 


2 


4 


15 


8 


2 


10 


! 18 
1 


Evans 


Tom 


M 


2 


4 


16 


8 


2 


10 


1 19 
1 


Farmer 


Peter 


J 


1 


4 


18 


8 


2 


10 


i 20 
1 
1 


Faser 


Gas 


L 


2 


4 


19 


9 


2 


11 
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21 


Felton 


John 


K 


1 


4 


21 


9 


2 


11 


22 


Foley 


Mark 


L 


2 


4 


18 


10 


2 


. 12 


23 


Ford 


Roger 


A 


1 


4 


3 


11 


2 


12 


24 


Foster 


Kliff 


J 


2 


4 


2 


12 


2 


9 


25 


Fox 


Don 


E 


1 


4 


9 


9 


2 


9 


26 


Frank 


Paul 


K 


1 


4 


1 


10 


2 


12 


27 


Franko 


Jess 


L 


2 


4 


10 


9 


2 


9 


28 


Freeman 


Jim 


E 


2 


4 


4 


14 


2 


11 


29 


Ganos 


Jim 


A 


1 


4 


21 


13 


2 


9 


30 


Garret 


Rex 


D 


2 


4 


5 


12 


2 


9 


31 


Gilman 


Perry 


M 


1 


4 


6 


12 


2 


9 


32 


Good 


John 


L 


1 


4 


7 


14 


2 


11 


33 


Gorby 


Glen 


G 


1 


4 


9 


11 


2 


12 


34 


Gordon 


Jerry 


W 


2 


4 


8 


13 


2 


10 


35 


Gorman 


Bruce 


L 


2 


4 


12 


9 


2 


9 


36 


Hogan 


Joe 


K 


2 


4 


13 


12 


2 


9 


37 


Horan 


Kevin 


L 


1 


2 


11 


12 


2 


9 


38 


Ingals 


Tomas 


R 


1 


3 


16 


14 


2 


11 


39 


Jackson 


Peter 


M 


1 


4 


11 


12 


2 


9 


40 


Jensen 


Ron 


P 


1 


4 


11 


14 


2 


11 


41 


Jones 


Peter 


L 


2 


4 


8 


9 


2 


9 


42 


Kaan 


Dave 


J 


1 


4 


11 


30 


2 


10 


43 


Kamenos 


Joe 


M 


2 


4 


17 


13 


2 


9 


44 


Kane 


Bob 


R 


1 


4 


6 


28 


2 


12 


45 


Karras 


Mike 


L 


1 


4 


6 


25 


2 


11 


46 


Keen 


Robt 


N 


2 


3 


5 


26 


2 


9 


47 


King 


Lewis 


M 


1 


4 


11 


22 


2 


16 
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48 


Kirk 


Burt 


N 


2 


3 


9 


26 


2 


9 


49 


Kliff 


Fraink 


E 


1 


4 


10 


15 


2 


8 


50 


Kontos 


David 


K 


2 


4 


18 


13 


2 


9 


51 


Koom 


Peter 


H 


1 


3 


7 


26 


2 


9 


52 


Kueny 


John 


S 


1 


4 


11 


21 


2 


13 


53 


Larsen 


Allen 


A 


2 


4 


10 


11 


2 


12 


54 


Larson 


Roger 


K 


1 


4 


11 


14 


2 


11 


55 


Layton 


John 


E 


2 


4 


12 


12 


2 


9 


56 


Lemos 


Tim 


N 


3 


4 


17 


13 


2 


9 


57 


Lopez 


Tom 


L 


1 


4 


18 


11 


2 


12 


58 


Man os 


John 


K 


1 


4 


24 


12 


2 


9 


59 


Moore 


Roger 


L 


2 


4 


25 


11 


2 


12 


60 


Morris 


Roy 


K 


2 


4 


18 


11 


2 


12 


61 


Morton 


Brian 


C 


1 


4 


20 


11 


2 


12 


62 


Newman 


Ben 


K 


1 


4 


14 


7 


2 


9 


63 


Newton 


John 


J 


2 


4 


13 


7 


2 


9 


64 • 


Norton 


Denis 


E 


1 


4 


21 


7 


2 


9 


65 


Ocasio 


Jim 


E 


1 


4 


21 


28 


2 


9 


66 


Odel lo 


Bruno 


A 


1 


4 


11 


25 


2 


• 9 


67 


Olsen 


Joe 


N 


3 


4 


19 


9 


2 


11 


68 


Onas is 


George 


E 


3 


4 


16 


9 


2 


9 


69 


Oscar 


Tom 


K 


2 


4 


13 


9 


2 


9 


70 


Owens 


Bill 


L 


2 


4 


20 


8 


2 


10 


71 


Palmer 


Bob 


L 


2 


4 


10 


23 


2 


12 


72 


Pappas 


Nick 


C 


3 


4 


15 


9 


2 


9 


73 


Patton 


Mike 


H 


2 


4 


9 


23 


2 


12 


74 


Perry 


Bill 


H 


1 


4 


11 


23 


2 


12 
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75 


Peters 


Mark 


J 


2 


4 


13 


21 


2 


13 


76 


Peters 


Nick 


K 


1 


4 


12 


22 


2 


16 


77 


Potter 


Tom 


E 


1 


4 


12 


25 


2 


9 


78 


Quill 


Kelvin 


J 


2 


4 


12 


20 


2 


9 


79 


Quinn 


Peter 


C 


2 


4 


19 


20 


2 


9 


80 


Rigas 


Ben 


H 


2 


4 


14 


9 


2 


9 


81 


Rivera 


Mario 


L 


1 


4 


14 


16 


2 


9 


82 


Roberts 


Ben 


J 


2 


4 


12 


20 


2 


9 


83 


Rodes 


James 


K 


1 


4 


9 


20 


2 


9 


84 


Rokos 


Nick 


A 


1 


4 


13 


20 


2 


9 


85 


Ross 


Allan 


J 


1 


4 


6 


16 


2 


9 


86 


Sanders 


James 


F 


1 


4 


11 


20 


2 


11 


87 


Scott 


Paul 


V 


2 


3 


16 


20 


2 


11 


88 


Spencer 


Tim 


M 


1 


4 


23 


16 


2 


9 


89 


Stanley 


Gris 


K 


2 


4 


22 


16 


2 


9 


90 


Takas 


Costas 


L 


1 


4 


20 


13 


2 


9 


91 


Torres 


Alex 


A 


1 


4 


21 


19 


2 


13 


92 


Turner 


Carlos 


B 


2 


3 


16 


19 


2 


13 


93 


Ullman 


Rolf 


G 


2 


4 


28 


13 


2 


10 


94 


Ulrey 


Dan 


A 


1 


4 


25 


14 


2 


11 


95 


Victor 


David 


R 


2 


4 


11 


12 


2 


9 


96 


Vongel 


Mark 


E 


2 


4 


16 


14 


2 


11 


97 


Warren 


Geo 


M 


1 


3 


16 


13 


2 


10 


98 


Waters 


Gary 


L 


1 


4 


16 


14 


2 


11 


99 


Watson 


Ralph 


D 


2 


4 


11 


13 


2 


10 


100 


Z ikas 


Tom 


J 


1 


4 


19 


13 


2 


9 
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8 . Program Reports 



This program prints ail the officers in alphabetical 
order including name, rank, address, and phone #. 

The structure of the program is as follows: 

a. The necessary memory variables are initialized 
and the main heading is printed. 

b. The MASTER file is sorted into the temporary 
file TEMP in alphabetical order, with key the officer's name. 

c. The program performs the main process within a 
WHILE loop which includes: 

(1) Storing the appropriate field values to the 
corresponding memory variables. 

(2) Retrieving the appropriate rank name from 

RANKS file. 

(3) Printing the main line of the output, and 
proceeding with the next record. 

d. The temporary file TEMP is deleted, the MONITOR 
file is updated, and then the program returns. 

The listing and output of the program are shown in 
the next pages. 
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PROGRAM REPORTS 

* This program prints all the officers in alphabetical 

* order including name, rank, address, and phonett 

ERASE 

* Initiali25e memory variables 

STORE "LIST OFF OFFICERS WITH THEIR ADDRESS AND PHONE#" TO title 



STORE "===============================================" TO line 

STOI?E 1 TO seqnum 

STORE 0 TO linecount 

STORE " " TO pneune 

STORE " " TO ramkname 

STORE " " TO mrank 

STORE " " TO paddress 

STORE " " TO pphone 



SET PRINT ON 



* Print the heading 



? " 
?? " 
? " 

?? " 
p 

7 

9 






p 



?? " 



p 



?? " 
p 



+DATE( ) 



+ " — 

"+title 
"+1 ine 



" I SEQ# ! NAME 

ADDRESS ; PHONE# j 



pp 

STORE linecount + 9 TO linecount 
SELECT PRIMARY 
USE master 



RANK ! " 



* Sort MASTER file in alphabetical order of the officer's 

* names into the temporary file TEMP, and use this file for 

* the database processing 

SORT ON name TO temp ASCENDING 
USE temp 

DO WHILE .NOT. EOF 

STORE name TO pname 
STORE rank TO mrank 
STORE address TO paddress 

STORE $( phone, 1 , 3 )+"-"+$( phone, 4, 4 ) TO pphone 

* Search RANKS file with key the field 'rank' of the 

* officer’s record and get the appropriate rank name 
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SELECT SECONDARY 
USE ranks INDEX ranks 
FIND &mrsink 
IF $(p.unit, 1, 1) = "I" 

STORE armyname TO rankname 
ELSE 

STORE navyname TO rankname 
END IF 



* If the line counter exceeds 53, continue in the next page 

IF linecount > 53* 

EJECT 

STORE 0 TO linecount 
END IF 



* Print the data concerning the officer 



?? '■ 

7 

?? " ' 
?? " I 
?? " I 
?? " 
STORE 
STORE 



" +STR( seqnum, 3 ) 



"+pname 
"+rankname 
"+paddress 
" +pphone+ " ' 
linecount+2 
seqnum+1 TO 



TO linecount 
seqnum 



[ 

I 

I '• 

I 



STORE ” ■■ TO pname 

STORE '■ " TO rankname 

STORE " " TO mrank 

STORE " '■ TO paddress 

STORE " " TO pphone 



* Continue with the next record 



I " 
I 



SELECT PRIMARY 
SKIP 

ENDDO WHILE .NOT. EOF 

* Delete file TEMP, update MONITOR file and return 

DELETE FILE temp. DBF 

DO monitr 

RETURN 
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******** PROGRAM PRINTMON ******** 



* This program prints statistical information 

* of who did what eind when 

ERASE 
DO monitr 



* Initialize memory variables 



STORE 

STORE 

STORE 

STORE 

STORE 

STORE 



"MONITORING THE USERS' ACCESS TO THE SYSTEM" TO tit lei 
=====^ ========================= ============ TO linel 

" DATE NAME JOB DONE" TO title2 

FILE/REP # OF REC" TO titleS 

•• TO line2 

■■ •• TO lines 



* Print the headline 



SET PRINT ON 



T 

?? 

T 

?? 

T 

T 

T 

T 

?? 

T 



titles 



"+DATE( ) 



"+titlel 
"+1 inel 

"+title2 

"+line2 



?? lines 
SELECT PRIMARY 
USE monitor 
DO WHILE .NOT. EOF 



=♦= Print the main line 



? " 


"+date 


?? " 


" +name 


?? " 


" + job 


?? " 


"+f le; rept 


?? " 


" +STR(numrec, S) 


SKIP 





ENDDO WHILE 
RETURN 
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12/01/85 



LIST OF OFFICERS WITH THEIR ADDRESS AND PHONEi^ 



1 SEQ# 1 


N A 


M E 


! 


RANK ! 




ADDRESS 1 


PHONES 


! 1 


Adams 


Garry 


J 


CPT 


49 


Scott, San Jose 


375-5720 


! 2 


Alkamo 


J im 


p 


LTJG 


64 


3rd, Otay 


623-3460 


! 3 


Allen 


David 


E 


CPT 


36 


Laine, Ford Ord 


375-5619 


I 4 


Boris 


Peter 


H 


LT 


6 1st, Monterey 


623-3133 


! 5 


Borrias 


Nick 


L 


LT 


10 


Pine, Monterey 


623-3232 


! 6 


Brown 


Peter 


R 


CPT 


17 


River, Salinas 


373-5518 


1 7 


Bruce 


Mark 


P 


CPT 


86 


Monroe, Marina 


375-5417 


! 8 


Byron 


Larry 


M 


CPT 


24 


Pine, Monterey 


373-5316 


! 9 


Clark 


Tom 


L 


MAJ 


66 


Hills, Marina 


373-5215 


! 10 


Cook 


Ryan 


K 


MAJ 


44 


Carlos, Monterey 


373-4913 


! 11 


Crosby 


Jerry 


J 


MAJ 


36 


Forest, St Clara 


373-4912 


! 12 


Dalton 


John 


E 


MAJ 


22 


Mount, Carmel 


373-4911 


! 13 


Denton 


Mark 


S 


LTJG 


63 


2nd, Otay 


623-3450 


! 14 


Dorey 


J im 


H 


MAJ 


81 


Lake, Salinas 


373-4915 


! 15 


Du r ran 


Frank 


M 


MAJ 


77 


Hills, San Jose 


374-5816 


! 16 


Emery 


Roy 


J 


MAJ 


79 


Forest, San Jose 


373-6819 


! 17 


Evans 


Isaac 


M 


ILT 


18 


David, Marina 


373-6774 


! 18 


Evans 


Tom 


M 


ILT 


17 


Della, Marina 


373-6773 


! 19 


Farmer 


Peter 


J 


ILT 


16 


Denise, Carmel 


373-6772 


! 20 


Faser 


Gas 


L 


ILT 


15 


Diane, Bonita 


373-6771 


! 21 


Felton 


John 


K 


ILT 


14 


Fox, Nestor 


373-6770 


i 22 


Foley 


Mark 


L 


ILT 


59 


Hofman, Fresno 


568-6229 
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23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 



Ford 



Roger 
Foster Kliff 
Fox Don 

F rank Pau 1 
Franko Jess 
Freeman Jim 
Ganos Jim 
Garret Rex 
Gilman Perry 
Good John 
Gorby Glen 
Gordon Jerry 
Gorman Bruce 
Hogan Joe 
Horan Kevin 
Ingals Tomas 
Jackson Peter 
Jensen Ron 
Jones Peter 
Kaan Dave 
Kamenos Joe 
Kane Bob 
Karras Mike 
Keen Robt 
King Lewis 
Kirk Burt 
Kliff Frank 



A 


CPT 


52 Morgan, Otay 


565-6226 


J 


CPT 


55 Lilly, Carmel 


565-6227 


E 


LTJG 


66 Belden, Carmel 


623-3480 


K 


ILT 


57 Pine, Otay 


565-6228 


L 


LTJG 


65 Desty, Moreno 


623-3470 


E 


CPT 


51 Lase, Carmel 


565-6225 


A 


LT 


10 Passo, San Diego 


623-3134 


D 


CPT 


49 Kity, Monterey 


565-6224 


M 


CPT 


47 Laco, Carmel 


565-6223 


L 


CPT 


45 David, Otay 


565-6222 


G 


CPT 


41 9th, Fresno 


565-6220 


W 


CPT 


43 Pine, Otay 


565-6221 


L 


LTJG 


62 David, Otay 


623-3440 


K 


CPT 


98 Camino, Marina 


373-5922 


L 


CPT 


74 Ramona, Carmel 


375-5821 


R 


CPT 


11 Forest, St Clara 


373-6225 


M 


CPT 


32 Grove, Monterey 


373-6023 


P 


CPT 


55 Hilby, Salinas 


373-6124 


L 


LTJG 


67 Passo, Salinas 


623-3481 


J 


MG 


71 Buna, Monterey 


372-6402 


M 


LT 


60 Desty, Monterey 


623-3138 


R 


BG 


53 Vista, Monterey 


272-6403 


L 


LTC 


19 Franklin, Marina 


372-6406 


N 


COL 


48 Cannery, Carmel 


372-6404 


M 


LTC 


31 Trinity, Salinas 


372-6408 


N 


LTC 


25 Ocean, Monterey 


372-6407 


E 


MAJ 


52 Castro, Fresno 


375-5114 
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50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 



Kontos 


David 


K 


LT 


10 


Pine, Marina 


623-3137 


Koom 


Peter 


H 


LTC 


97 


Nadina, Carmel 


372-6405 


Kueny 


John 


S 


LTC 


28 


Mission, Monterey 


372-6409 


Larsen 


Allen 


A 


OPT 


39 


6th, Fresno 


565-6219 


Larson 


Roger 


K 


OPT 


37 


Marcy, Fresno 


565-6218 


Layton 


John 


E 


OPT 


35 


Spencer, Carmel 


565-6217 


Lemos 


Tim 


N 


LT 


13 


Dian, Otay 


623-3139 


Lopez 


Tom 


L 


OPT 


33 


Pine, Bonita 


565-6216 


Manos 


John 


K 


OPT 


25 


3rd, Carmel 


565-6212 


Moore 


Roger 


L 


OPT 


27 


Market, Marina 


565-6213 


Morris 


Roy 


K 


OPT 


31 


David, Otay 


565-6215 


Morton 


Brian 


C 


OPT 


27 


Morena, Carmel 


565-6214 


Newman 


Ben 


K 


ILT 


19 


Pine, Marina 


373-6775 


Newton 


John 


J 


ILT 


20 


View, Monterey 


373-6776 


Norton 


Denis 


E 


ILT 


21 


Side, Carmel 


373-6777 


Ocasio 


Jim 


E 


COMD 


25 


Dexter, Carmel 


373-6789 


Odello 


Bruno 


A 


CAPT 


26 


Hawk, Toro 


373-6781 


Olsen 


Joe 


N 


LTC 


23 


Hofman, Fresno 


373-6779 


Onasis 


George 


E 


LTJG 


9 : 


2nd, Carmel 


623-3140 


Oscar 


Tom 


K 


LTJG 


61 


David, Otay 


623-3430 


Owens 


Bill 


L 


ILT 


22 


Pine, Carmel 


373-6778 


Palmer 


Bob 


L 


LTC 


84 


Tamara, Marina 


372-6412 


Pappas 


Nick 


C 


LTJG 


11 


3rd, Otay 


623-3410 


Patton 


Mike 


H 


LTC 


69 


Lowell, San Jose 


372-6413 


Perry 


Bill 


H 


LTC 


38 


Casa, Santa Clara 


373-6414 


Peters 


Mark 


J 


LTC 


62 


Story, Salinas 


372-6410 


Peters 


Nick 


K 


LTC 


75 


Wanda, Carmel 


372-6411 
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77 


Potter 


Tom 


E 


CAPT 


27 


Rosita, Carmel 


373-6782 


78 


Quill 


Kelvin 


J 


CDR 


29 


6th st, Alto 


373-6784 


79 


Quinn 


Peter 


C 


CDR 


28 


10th st, Alto 


373-6783 


80 


Rigas 


Ben 


H 


LTJG 


33 


Pine, Otay 


623-3420 


81 


Rivera 


Mario 


L 


LCDR 


50 


Pine, Alto 


373-6788 


82 


Roberts 


Ben 


J 


CDR 


31 


7th, Alto 


373-6786 


83 


Rodes 


James 


K 


CDR 


32 


David, Fresno 


373-6787 


84 


Rokos 


Nick 


A 


CDR 


30 


7th, Carmel 


373-6785 


85 


Ross 


Allan 


J 


LCDR 


51 


Jakobs, Carmel 


373-6780 


86 


Sanders 


James 


F 


LTC 


57 


Sinex, Marina 


372-6415 


87 


Scott 


Paul 


V 


LTC 


42 


Grand, Carmel 


372-6416 


88 


Spencer 


Tim 


M 


LCDR 


99 


David, Carmel 


623-3130 


89 


Stanley 


Cris 


K 


LCDR 


15 


David, Salinas 


623-3131 


90 


Takas 


Costas 


L 


LT 


8 Elden, Salinas 


623-3135 


91 


Torres 


Alex 


A 


LTC 


60 


Sinex, Fresno 


372-6418 


92 


Turner 


Carlos 


B 


LTC 


15 


Grove, Monterey 


372-6417 


93 


Oilman 


Rolf 


G 


CPT 


22 


Maple, Fresno 


565-6210 


94 


U1 rey 


Dan 


A 


CPT 


23 


Marge, Carmel 


565-6211 


95 


Victor 


David 


R 


CPT 


64 


Pine, Carmel 


373-6629 


96 


Vongel 


Mark 


E 


CPT 


80 


Hills, Fresno 


375-6731 


97 


Warren 


Geo 


M 


CPT 


37 


Holman, Carmel 


373-6326 


98 


Waters 


Gary 


L 


CPT 


26 


Vina, Monterey 


376-6528 


99 


Watson 


Ralph 


D 


CPT 


41 


Dolores, Marina 


375-6427 


100 


Zikas 


Tom 


J 


LT 


16 


Gordiou, Carmel 


623-3136 
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D. MISCELLANEOUS OPERATIONS 



These are auxiliary operations, which have been included 
in our Database System, to provide the Commander of a Forma- 
tion and the aiding personnel, some statistical information 
about any work done in the database, as well as, some informa- 
tion concerning officers deleted from the current Unit, This 
information is recorded automatically during the whole opera- 
tion of the database, in the files MONITOR, and STATISTIC, 
respectively. These files can be printed or deleted upon 
request. In addition, we have included in this function, a 
screen display, or printer output, of all the data concerning 
an officer. 

The programs implementing this function of the system, 
with a short description of what each performs, are given 
below: 

1 . Program Printmon 

This program prints the MONITOR file, which keeps 
track of who does what and when. 

2 . Program Printstat 

This program prints the STATISTIC file, which contains 
some information about the officers who have been deleted 
from their previous Unit. 

3 . Program Delmon 

This program deletes the data from the MONITOR file. 

4 . Program Delstat 

This program deletes the data from the STATISTIC file. 
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5 • Program Dispscrn 



This program displays on the screen, or prints, 
depending on the user's choice, all the information included 
in an officer's record. 

The listings of the above programs, as well as, the 
output if any, are shown in the next pages. 
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PROGRAM PRINTMON ^*^***** 



* This program! prints statistical information 

* of who did what and when 



ERASE 
DO monitr 



* Initialize memory variables 



STORE 

STORE 

STORE 

STORE 

STORE 

STORE 



"MONITORING THE USERS’ ACCESS TO THE SYSTEM" TO titlel 
"--========================================■■ TO linel 

" DATE NAME JOB DONE" TO title2 

FILE/REP « OF REC" TO titleS 

" " TO line2 

" " TO lines 



* Print the headline 
SET PRINT ON 



? " 




?? " 


"+DATE( ) 


? " 




?? " 
? " 


"+titlel 


? " 


" +1 inel 






? " 


"+title2 


?? titles 




? 


"+line2 



?? lines 
SELECT PRIMARY 
USE monitor 
DO WHILE .NOT. EOF 



* Print the main line 



? " 


"+date 


?? " 


" +name 


?? “ 


" + job 


?? " 


" +f le : rept 


?? " 


"+STR(numrec, S) 


SKIP 





ENDDO WHILE 
RETURN 
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**)»:*** PROGRAM PRINTSTAT ******** 



* This program prints the statistic file which contains 

* some information about the officers who have been 

* deleted from their previous unit 

ERASE 

* Initialize memory variables 



STORE "STATISTIC INFORMATION OF DELETED OFFICERS” TO titlel 
STORE "====== ==================================='• TO linel 

STORE "SER# NAME RANK UNIT REPTDATE" TO title2 

STORE " DELDATE" TO titleS 

STORE " " TO line2 

STORE " " TO lines 



* Print the headline 



SET PRINT ON 
? " 

?? " "+DATE() 

? " 

“P? " •' 

? " “+titlel 

? " "+linel 

<? 

? " "+title2 

?? titles 

? " "+line2 

?? lines 
SELECT PRIMARY 
USE statistic 
DO WHILE .NOT. EOF 



* Print the main line 



?? 

?? 

?? 

?? 

?? 



"+serno 

" +name 
"+rank 
" +unit 
"+reptdate 
" +deldate 



SKIP 

ENDDO WHILE 
DO monitr 
RETURN 
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sic PROGRAM DELMON 



* This program deletes the data of the MONITOR file 

ERASE 
? CHR(7) 

@ 7,30 SAY '•*** WARNING ***" 

@ 9,17 SAY "The data of the MONITOR file will be deleted" 

@ 11,31 SAY "PROCEED? Y/N" 

STORE " ” TO answer 
WAIT TO answer 
IF answer = "y" 

SELECT PRIMARY 
USE monitor 
GOTO TOP 

DELETE NEXT 1000 

PACK 

USE 

ERASE 

@ 9,13 SAY "If you have made a mistake. sorry it is late" 
@ 11,19 SAY "MONITOR file has been deleted" 

STORE 1 TO delay 
DO WHILE delay < 80 

STORE delay+1 TO delay 
ENDDO WHILE 
DO monitr 
ELSE 

ERASE 
? CHR(7) 

@ 9,20 SAY Be careful, time is money 

STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
END IF 
RETURN 
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**4f*^:<<** PROGRAM DELSTAT *******:* 



* This program deletes the statistic officers file 

ERASE 
? CHR(7) 

@ 7,30 SAY "*** WARNING ***" 

@ 9,21 SAY "The STATISTIC file will be deleted" 

@ 11,31 SAY "PROCEED? Y/N" 

STORE " " TO answer 
WAIT TO answer 
IF answer = "y" 

SELECT PRIMARY 

USE statistic 

GOTO TOP 

DELETE NEXT 1000 

PACK 

USE 

ERASE 

@ 9,17 SAY "The STATISTIC file has now been deleted" 
STORE 1 TO del 
DO WHILE del < 40 

STORE del+1 TO del 
ENDDO WHILE 
DO monitr 
ELSE 

ERASE 
? CHR(7) 

@ 9,20 SAY "*** Be careful, time is money ***" 

STORE 1 TO delay 
DO WHILE delay < 30 

STORE delay+1 TO delay 
ENDDO WHILE 
ENDIF 
RETURN 
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PROGRAM DISPSCRN *****:* 

* This program displays on the screen or printer all the 

* information concerning an officer 

ERASE 



* Initialize memory variables 

STORE " " TO mserno 

STORE " " TO rankcode 

STORE " " TO unitcode 

STORE " " TO dutycode 

STORE '■ " TO langcode 

STORE " " TO sccode 

STORE '■ " TO rankname 

STORE ” " TO unitname 

STORE ■■ " TO dutyname 

STORE " " TO scname 

STORE ■' '■ TO langnarae 

STORE " ” TO degrname 

STORE ■■ " TO marstname 

STORE 0 TO count 

SELECT PRIMARY 

USE master INDEX master 

STORE "y" TO answer 

DO WHILE answer = "y" 

ERASE 

@ 2,10 SAY "DISPLAYING OFFICERS’ RECORDS" 

@ 5,10 SAY "Enter serial number" GET mserno PICTURE "9999' 
@ 7,10 SAY "Press ’ENTER’ to exit" 

READ 

IF $(mserno, 1, 1 ) = " " 



* Update TEMPOR and MONITOR files, and return 



IF count <> 0 

SELECT SECONDARY 
USE temper 

REPLACE counter WITH count 
USE 

DO monitr 
END IF 
RETURN 
ENDIF 
ERASE 

@ 5, 10 SAY "Where do you want the display to be directed?' 
@7,10 SAY " 1 = Screen" 

@ 8, 10 SAY " 2 = printer" 

STORE " " TO answer 
WAIT TO answer 
IF answer = ”2" 

SET FORMAT TO PRINT 
ENDIF 
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* Find the officer in MASTER file 



FIND &mserno 
IF # = 0 
ERASE 
? CHR(7) 

@ 10, 10 SAY "This record does not exist, try again" 
STORE 1 TO del 
DO WHILE del < 30 

STORE del+1 TO del 
ENDDO WHILE 
LOOP 
END IF 

* Store the codes of certain information concerning the 

* officer, to memory variables in order to be used as keys 

* for finding the real data from the appropriate files 

STORE rank TO rankcode 
STORE unit TO unit code 
STORE duty TO dutycode 
STORE educat TO sccode 
STORE forlang TO langcode 

* Retrieve the information from the auxiliary files 

SELECT SECONDARY 
USE ranks INDEX ranks 
FIND &rankcode 
IF $(p. unit, 1, 1 ) = "1" 

STORE armyname TO rankname 
ELSE 

STORE navyname TO rankneime 
END IF 

USE units INDEX units 

FIND &unitcode 

STORE title TO unitname 

USE duties INDEX duties 

FIND &dutycode 

STORE name TO dutyname 

USE forlangs INDEX forlangs 

FIND &langcode 

STORE name TO langname 

USE sciences INDEX sciences 

FIND &sccode 

STORE name TO scname 

* Store the appropriate name for marital status and degree 

SELECT PRIMARY 
DO CASE 

CASE degree = "B" 

STORE "Bachelor" TO degrname 
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CASE degree = “M" 

STORE "Master" TO degrname 
CASE degree = "P" 

STORE "Ph.D" TO degrname 
ENDCASE 
DO CASE 

CASE mars tat = "M" 

STORE "Married" TO marstname 
CASE marstat = "U" 

STORE "Unmarried" TO marstname 
CASE marstat = "D" 

STORE "Divorced" TO marstname 
ENDCASE 



* Display the record in the screen 



ERASE 



@ 


1, 10 


SAY 


@ 


2, 10 


SAY 


@ 


5, 10 


SAY 


@ 


6, 10 


SAY 


@ 


7, 10 


SAY 


@ 


8, 10 


SAY 


@ 


9, 10 


SAY 


@ 


10, 10 


SAY 


@ 


11, 10 


SAY 


@ 


12, 10 


SAY 


@ 


13, 10 


SAY 


@ 


14, 10 


SAY 


@ 


15, 10 


SAY 


@ 


16, 10 


SAY 


@ 


17, 10 


SAY 


@ 


18, 10 


SAY 



"DISPLAYING OFFICERS' RECORDS' 



"RANK 

"UNIT 



"EDUCATION 
" DEGREE 
"FOREIGN LANG 



"+mserno 

"+n8une 

"+rankname 

"+unitname 

”+serentry 

" +reptdate 

"+dutyn8ime 

"+scname 

"+degrname 

"+langname 

"+marstname 

" +chi Idren 

"+address 

"+phone 



"ADDRESS 
"TELEPHONE # 

STORE count+1 TO count 
SET FORMAT TO SCREEN 

@ 21,10 SAY "DISPLAY ANOTHER RECORD? (Y/N) 
WAIT TO answer 
STORE " " TO mserno 

ENDDO WHILE answer = "y" 

SELECT SECONDARY 
USE temper 

REPLACE counter WITH count 
USE 

DO monitr 
RETURN 
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V. CONCLUSIONS AND RECOMMENDATIONS 



In this thesis, we tried to develop a personnel data- 
base system model, suitable for implementation within the 
Hellenic Armed Forces Formations. This system could also 
be applied to any subdivision of the Hellenic Armed Forces 
hierarchy, with only slight modification. 

Our main goal is to increase productivity, effective- 
ness, efficiency, accuracy, and speed, as far as personnel 
management is concerned, as well as to decrease the national 
expenditure, and release manpower for other purposes. Also, 
the Commander of a Formation will be able to make fast 
decisions concerning personnel, which is important as well. 

We used dBASE II as a database management system, since 
it is based on the relational model, which increases indepen- 
dency, and reduces redundancy. In addition, dBASE II contains 
its own programming language, which is a structured, high- 
level language, which is generally very efficient for 
manipulating data in the database. 

We have implemented the most usually needed reports, but 
a wide variety of other reports, or simple queries, could 
also be created. Also, we tried to keep the programs as 
user friendly as possible, in order to help, not hinder, the 
operators in their job. 

The software life cycle has been taken into account 
during the program development process. Programs are easy 
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to modify to meet future improvement needs. In our appli- 
cation we have used the top-down design approach which 
serves the above goal. 

In this implementation we have included only officers, 
and a certain amount of data for each of them. Future 
improvements could include the entire military personnel, 
and we could add more information to the record of each 
individual, such as place and date of birth, medical infor- 
mation, military education, and statistical information 
concerning the units he has been assigned up to the present 
time, to name just a few. 

This thesis constitutes a good basis for the future 
computerization of personnel management, in the Hellenic 
Armed Forces Formations, as well as in subordinate units. 
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